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1.0 INTRODUCTION 



TED (Tape EDitor) allows selective modification of any specified block 
of tape or disk via a CRT display and simple keyboard commands. Ten 
locations of the block are displayed at a time with a movable cursor. 
Multi-word as well as single-digit changes are easily accomplished. 

2.0 HARDWARE REQUIREMENTS 

TED will run on any PDP-12 system that supports DIAL-MS 1 . 
3.0 LOADING PROCEDURE 

The program uses the DIAL*-MS I/O routines for its input and output, and 
reads the I/O routines from a system device (tape unit 0 if tape system 
or disk unit 0 if disk system). Therefore, before loading, make sure 
that the system has been initialized (by starting at 73 1,0 ) for the par- 
ticular machine configuration being used. 

The program is loaded by the command 

-*LO TED,u^> 

where u = unit. Starting address, if not self-starting, is 4020, LINC- 
mode. After the program has been started and the I/O routines read 
into core, the tape on unit 0 may be dismounted if desired. 

4 . 0 USAGE 

An initial QANDA (question and answer) frame will appear 
TED 

(Tape Editor) 

READ BLOCK 

FROM UNIT— 

Legal blocks are 0000-7777 and legal units are 00-77. If nonexistent 
blocks or units are specified, results are questionable. A nonexistent 
unit should give a "NO" message; type RETURN to return to DIAL, or re- 
start at 4020. 

1 LAP6-DIAL-MS is referred to as DIAL-MS. 
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Once the block and unit have been specified (illegal characters will 
cause the frame to be redisplayed)^ the block will be read into core 
and the following display will appear. 

UNIT XX 
BLOCK XXXX 

LOC / CONTENTS 

000 / XXXX XX 

001 / XXXX XX 

002 / XXXX XX 

003 / XXXX XX 

004 / XXXX XX 

005 / XXXX XX 

006 / XXXX XX 

007 / XXXX XX 

The extreme right column gives the two 6-bit ASCII equivalents of the 

octal number. Most of these are obvious (01=A, etc.), but there are 
a few exceptions : 

43 (DIAL code for carriage return) is displayed as a 
curved down-arrow D) . 

47 (DIAL code for TAB) is displayed as a horizontal 
" T" (H ) . 

37 (Back-arrow) is displayed as such even though DIAL 
ignores it (*-) ♦ 

The cursor, initially under the first digit of the contents of loca- 
tion 0, may be moved by pressing the following keys (there is no Tele- 
type 1 echo) . 

Key Action 
SPACE Moves cursor one digit to right 

RUBOUT Moves cursor one digit to left 

RETURN Moves cursor down one line and to left 

ALTMODE Moves cursor up one line and to left 

DIGITS 0-7 When a digit is typed, the number typed replaces 

the digit under which the cursor is located. The 
cursor then moves one space to the right. 

The "window" may be moved to display new locations by typing the fol- 
lowing keys. 



teletype is a trademark of the Teletype Corporation, 
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Key 
CTRL/F 1 

F 

CTRL/B 
B 

LINEFEED 
+ a number 000 
to 377 



Action 

Advances window by 10*, thus, if initially 
locations 000-001 are displayed, CTRL/F 
will cause locations 010-017 to be dis- 
played. 

Same as CTRL/F, except by 1. 

Backs up window by 10 (just the reverse 
of CTRL/F) . 

B*acks up window by 1 (the reverse of F) . 

Positions the window so that the specified 
location is at the top of the window. 
(371-377 position the display such that 
370 is at the top of the window.) 



LINEFEED 
+ S 



Searches the block starting at the cur- 
rent location (location displayed at the 
top of the window) for the contents of 
the Right Switches masked by the contents 
of the Left Switches. If the search is 
not successful, the window is positioned 
to location zero. If the search is suc- 
cessful, the location with the desired 
number is positioned at the top of the 
window. Exception: If a match is found 
in locations 371-377, the window is set 
starting at location 370 and the cursor 
is positioned under the first occurrence 
of the matching number. 



In addition, if at any time the cursor is at the beginning or end 
of the window and a command is given that would move the cursor 
beyond the window, the window will be moved to give the desired 
result. Thus, if the cursor is on the last line of the window and 
RETURN is typed, the whole window will move up 1 frame. 

If the window is at 000 or 377, attempts to go beyond the ends are 
ignored. 

Various other keys are used to control the reading and writing 
of the blocks: 

Action 

Rereads the current block (RESTORE) . 

CTRL/C Returns to initial QANDA display. 

CTRL/W Writes back the current block, with any 
changes, and returns to the initial dis- 
play . 

: A CTRL/F is typed by holding down the CTRL key and typing the letter F. 



Key 
CTRL/R 
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Action 



CTRL/N Reads in the next sequential block (does 

not write) . 

CTRL/P Reads in the previous block (current 

block - 1) . 

CTRL/D Returns to DIAL (.active during most 

question and answer displays). 



5.0 CORE LAYOUT 



All the display routines and pointer up- 
date routines, except for QANDA. 

Locations 0-377 are the tape block buffer. 

The code to call the QANDA displays and 
interpret the answers is here, plus the 
I/O calls. Also in this segment are the 
QANDA text frames. 

QANDA is in locations 0-777 of this segment, 
along with routines that actually JMP to 
QANDA itself, since QANDA can only be 
called from its own segment. The DIAL-MS 
I/O routines are in locations 1000-1777 
(absolute 7000-7777). 

FIELD 1 is entirely free. 

6.0 INTERNAL DESCRIPTION OF TED 

Operation of TED is quite straightforward. The display is controlled 
by three main pointers, RBASE, LINE, and LINPOS. By setting these, the 
display routines are set to display the desired information. RBASE 
points to the word that is to be the top of the display "window". It 
can range from 0 to 370. RBASE is added to BASE (the actual starting 
address in core of the tape or disk block being worked on) to provide 
a pointer to the core location of the first word to be displayed. It 
is the "relative base" of the window. Note that BASE is 2000, which 
is location 0 of an LMODE data field and a legal PDP-8 core location 
pointer at the same time. If BASE is changed, be careful to check for 
LMODE references that depend on it being 2000. LINPOS and LINE con- 
trol the position of the cursor. LINE can range from 0 to 7 and indi- 
cates which of the eight locations currently being displayed on the 
scope the cursor should be under. LINPOS ranges from 0 to 3 and indi- 
cates the digit on the line. LINPOS may be thought of as the "X" and 
LINE the "Y" of the cursor, though they must be changed to actual scope 
coordinates before display. 



SEGMENT 0 

SEGMENT 1 
SEGMENT 2 

SEGMENT 3 
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There are three major display routines. One of these is QANDA which 
is used to display the text "BLOCK XXXX , UNIT XX, LOC, CONTENTS . " The 
QANDA internal keyboard check is removed to permit scanning of charac- 
ters by the main program. The check is put back in when the first 
question frame is being displayed. 

DISCUR takes the pointers LINPOS and LINE and converts them to a scope 
(X,Y) , then displays the cursor. 

DISlJZf displays the location numbers, the octal contents, and the ASCII 
equivalents of the ten consecutive locations pointed to by RBASE. It 
uses the QANDA character pattern table for this purpose, but DIS10 
handles its own DSC instructions. 

When a key is typed, an operation dispatch routine scans a list of 
characters and transfers control to a number of little routines depend- 
ing on the key that was typed. If " F" is typed, for example, control 
goes to the KF routine. 

LINEFEED is a special case. When a LINEFEED is typed, the terminating 
34 in the QANDA text string is moved from its initial location follow- 
ing "CONTENTS" to a location immediately after the "=" sign. This 
permits the "=" to be displayed in the lower left corner of the scope. 
If an "S" is then typed, the 3 4 is moved back to its original location, 
the left and right switches are read, and control goes to the "GOTS" 
routine. If a digit is typed, it is placed in the text string immedi- 
ately after the "=" and the terminating 3 4 is moved over one half word. 
Up to 3 digits may be typed; after 3 digits, the only legal characters 
are RUBOUT (which backs up the 3 4 one half word) or carriage return 
(which causes the 3-digit number to be decoded) . RUBOUT can also 
erase the "=" sign; in this case, the 34 is moved back and the original 
display resumed. 

7.0 ASSEMBLY INSTRUCTIONS 

TED is assembled as required by the DIAL Assembler. Briefly, the cor- 
rect sequence is : 

+ ZE J 

-*AS TED, u^ Cu=unitl 

+SB TED,u,L^ Cfor load & go) 
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0000 *20 

0001 / TED 

0002 / 

0003 / tape: editor 

0004 / 

0005 /COPYRIGHT 1971 

0006 /DIGITAL EQUIPMENT CORPORATION 

0007 /MAYNARD, MASS, 01754 

0010 / 

0011 / 

0012 /ALLOWS SELECTIVE EDITING OF ANY TAPE OR 

0013 /DISK BLOCK, CONTROL KEYS ARE* 

0014 / 

0015 /CTRL/R — - RE-READ CURRENT BLOCK 

0016 /CTRL/C RETURN TO INITIAL DISPLAY 

0017 /CTRt/W WRITE CURRENT BLOCK, RETURN TO INITIAL DISPLAY 

0020 /CTRL/N — - READ NEXT SEQUENTIAL BLOCK 

0021 /CTRL/P — * RE AO PREVIOUS BLOCK (CURRENT BLOCK-1) 

0022 /CTRL/D — • RETURN TO DIAL 

0023 / 

0024 /FOR EDITING: 

0025 /< RE TU RN > MOVES CURSOR DOWN 1 LINE 

0026 /< AL TM ODE> MOVES CURSOR UP ONE LINE 

0027 /<F> MOVES WINDOW DOWN ONE LOCATION 

0030 /<8> MOVES WINDOW UP ONE LOCATION 

0031 /<CTRL/F> SAME AS F , EXCEPT 10 

0032 /<CTRL/B> SAME FOR B 

0033 /DIGITS 0-7 REPLACE DIGIT CURSOR IS UNDER 

0034 /<SPACE> MOVES CUROSR OVER 1 DIGIT 

0035 /<RU8QUT> MOVES CURSOR BACK 1 DIGIT 

0036 /<LINEFEED*NUMBER> MOVES WINDOW TO THAT LOCATION 000-370 

0037 /<LINEFEED+S> SEARCHES STARTING AT CURRENT LINE (TOP OF WINDOW) 

0040 / FOR RSW MASKED BY LSW 

0041 / 

0042 /STARTING ADDRESS IS 4020, L INC MODE 

0043 / 

0044 /IN THE INTEREST OF REDUCING NOISE POLLUTION, 

0045 /THERE IS NO TELETYPE ECHO 

0046 / 

0047 /SGW 

0050 /3/71 

0051 / 

0052 / 

0053 EJECT 



0054 






/page: 0 






0055 






PMOQE 




00 56 






/ 






0101 K 7 
009 7 








*1 0 




01 PI A 01 
10 10010 


01 01 1 01 
0 010 


01 oi m m 
0000 


pn i im T1 
CU Win T 1 i 


oi 
0 




0101 A 4 


0101 1 4 
0011 


0loi 01m 
00 00 


UU UN i a » 


oi 
0 




010 A? 
me oc 


0101 1 2 


010] 0101 


rr TPMT » 


01 
0 




0101 A 1 
f K> 0 w 


010I 1 ^ 


0101 0101 
10 to 1010 


D 1 1 T 0 M T . 
rvj 1 r IN 1 » 


01 
10 




01 01 A A 
%> t> O 7 


01 01 1 4 
0 01" 


01 (A 01 01 
0 w 0 0 


Dl 1 TO 


01 
0 




0101 AS 
101007 


01 01 1 S 


Oi m m m 
0000 


DA T D M T 

r A 1 r IN T i 


01 
0 




01 01 A A 
101000 


01 01 4 A 
0 010 


oi 0t m oi 
0000 


v t r M o 
a 1 t Mr , 


0 




01 01 A 7 
10 10 0 / 








* A 0 




oi in t a 
low 710 


01 01 1 01 
0010 


m m m m 
0000 


WR DCNT , 


m 
0 




01 01 "» 4 

101071 


01 01 O 4 

0021 


0000 


MASK # 


0 


/MASK FOR "S" COMMAND 


1010 / A 


0101 99 
00 A A 


01 01 01 01 

00 00 


nA IWMi 


0 


/CHAR» TO MATCH ON "S" COMMAND 


0101 71 
1010 7 0 


0101 OX 
00 Cy 


oi oi m oi 
00 00 


i t Mr 
L I NL i 


01 

0 


J I TMC" fl 1 DC TO r\kl fA "7 

/UINE CURSOR lb ON # 0*7 


01017 A 
10(0 / ^ 


0101 9 4 
00 A ** 


01 oi oi m 
0000 


L I Uo » 


01 

0 


/DIGIT CURSOR Jo 0N» 0*3 


1010 77 


0101 "3 K 
00 29 


mm mm 
00 00 


HOLD t 


m 
0 




0076 


002o 


4 4 1 1 

* 132 


EXIT* 


PS 1 AAA 

0L00P 


/HOW TO GET BACK TO DISPLAY LOOP 


00 77 


mm o 7 
002 7 


mm mm 
00 00 


TE Mr i 


m 
0 




oi 1 not 
I0 1 1010 


0101 HOI 

00 00 


77 701 

77 70 


HXS0 f 


4 m 
"10 




014 Oil 
01 01 


00 31 


mm oft 
00 00 


XCQR i 


0 


/X OF DIGIT BEING DISPLAYED 


on no 
viae 


0101 7 9 
00 0 a 


A7 OI 
0 7 A 7 


t n 9 

IU A, 


no 

Q2 


/A QANDA THING 


011 Oil 

101 00 


0101 1 1 

00 00 


01 oi m m 
00 00 


v p no 
T C UK i 


m 
0 


/Y OF DIGIT BEING DISPLAYED 


011 0I4 
01 0** 


0101 X 4 
100 0 ™ 


0101 77 
100 7 7 


D7 7 
r 7 / , 


77 

7 7 




011 01 S 
01 07 


0101 KS 
00 0? 


77 401 
/ / ^|0 


M 4 01 
rl*l 0 , 


_ A 01 
• q |0 




011 CIA 
I01 BO 


0101 1A 
00 00 


O * *t O 


D I A 4 1 
r 0 *t *t 0 , 


14 4 1 
07*0 




011 0I7 


0101 1 7 
00 0 7 


4 1 S A 
70 90 


Cl AC U1 

OL AO HI t 


r K AME& *2 7 




0110 


0101 40 

CIO ~ v 


00 90 
lev £19 


P90 . 

r t. X) I 


901 
A v 




0111 


00 41 
t» K< 1 4, 


0^ 77 


P 77 . 

r O f I | 


\> f f 




0112 


004? 

kmc <r c. 


0 0 01 01 

¥J v lu t> 




01 
10 




01 13 

V 4> X W 


00 43 


6476 


RM 11M . 
oil yn , 


MUMP AT * 9 01 01 01 
nvnr « I (£101010 


/WHERE THE CHAR, PATTERNS ARE 


01 1 4 4 


0101 4 4 


7 A -J O 

70 72 


PC RM5# 


♦219»o2o 


1 k A A PS ft f" » |t ft II 

/♦CARtRET, - "S" 


O1 1 1 IS 

01 19 


01 01 4 S 
00 «t9 


7 4 m 4 
7*01 


Ml 7 7 

no / / i 


— 17 7 

•0 7 7 


01 1 1 A 
0110 


0101 A A 
00 7 0 


0101 m7 
00 0 7 


D7 
r 7 f 


7 




01 4 4 7 

0117 


m m 4 7 
004 7 


7 7 7 A 

7 7 7 4 


M4 i 


-4 




oi 1 on 
0 120 


m m K m 
0090 


4141 


ID IS PL A, 


DI SPL.A Y 


/POINTER TO DISPLAY EVERYTING 


Oil 94 
01 21 


m oi k 1 
00 91 


Dion 

0000 


t n t c 4 m 
I U I 0 10 » 


DI S10 


/pi a ■ l i ▼ p ri «r ft rs f ft ft i a \j i i f nA ai i 

/POINTER TO DISPLAY WJNOOW 


011 99 

01 aa 


0101 so 
00 9a 


OIK OO 
09 c& 


IU i O CU H| 


P» t CP 1 ID 

□ 1 5C UK 


jtr\ a| Lit rO T ft ft* PO i a \J aI IDC APi 

/POINTER TO DISPLAY CURSOR 


011 91 

01 AO 


0101 SI 
00 90 


74 1 a 

77 10 


Ml 701 

no 70 » 


"0 70 


011 94 
01 A* 


0101 S4 
00 9* 


74 oa 
7 7 £0 


M 1 A 01 

MO 00 t 


— 1 A 01 

•0 00 




014 9K 

0125 


mm Sr 
00 99 


m m 4 m 
00 10 




4 m 
10 




011 9A 
01 £0 


0101 SA 
00 90 


77 71 

7 7 71 


M7 
M7 i 


«• 7 




01 4 9 7 
016 7 


00 9 7 


7KO0I 
79 £0 


MO A 01 

M2O0 i 


"200 




011 10) 


0101 A0I 
00 OI0 


01 1 701 
00 70 


D 1 701 

r 0 / 0 i 


17 01 
07 0 




Oil 

0X01 


01 01 A 1 
0 0 o 1 


0101 1 9 
0 0 1 A 


D 1 9 . 
r X A i 


4 9 




01 1 1 9 
010 A 


0101 A O 
00 0 A 


00 00 


PI 1 D V 
LU n T | 


01 

0 


7Y OF CURSOR 


0 1 


01 01 A 
10 10 v w 


01 0101 01 
If 0 0 0 


PU AP . 


0 


f 1 tn" « r UK Kt" 1 TrtU 


0134 


0064 


2000 


BASE, 


2000 


/WHERE THE BLOCK IS 


0135 


0065 


0162 


MCRRUB i 


•215*377 


/-CAR, RET, ♦ RUBOUT 


0136 


00 66 


00 43 


P4 3, 


43 


/CAR, RET, 


0137 


0067 


0034 


P34, 


34 


/B ACKSLASH 


0140 


00 70 


00 00 


RBASE. 


0 


/RELATIVE BASE OF "WJNDOW" 


0141 


0071 


6367 


UNOPUT , 


FR AME2*40 J 6000 


/WHERE TO PUT 3 DIGITS TYPED AFTER 


0142 








EJECT 





0143 


0072 


7774 


READ , 


7774 


/MS DIAL POINTERS 


0144 


00 73 


7775 


WR JTE» 


7775 




0145 


00 74 


5772 


P5772* 


5772 




0146 


00 75 


7776 


P7776, 


7776 




0147 


n e% "*9 m\ 

0070 


K 1 "1 t 

5773 


P5773* 


5773 




0150 


00 77 


77 77 


97717, 


77 77 




0151 


01 00 


7200 


P'MOVE. 


7200 




0152 


0101 


0100 


SYSBUKi 


100 


/SYS UNIT 


0153 


0102 


0034 




34 


/»6000 


0154 


0103 


0022 




22 


/eu 22 


0155 


01 04 


0002 




2 


/2 BLKS 


0156 








EJECT 





0157 








PAGE 






0160 






/COME 


HERE AFTER LINEFEEDS 


f% * c 4 

0161 














014 A'i 

0102 


01 7 (31 01 


9144; 
7ii 40 


1/1 C" 


CLA at 


CM A RTL 


/ » 0 


0163 


01 9 01 4 

02 01 


30 io 




DC A 


XTEMP 


/3 DIGITS 


014 4 4 

0164 


an 0(9 
02 02 


it 01 OK 

302? 




DC A 


HO LD 


/ctHO OUT NUnotn 


01 4 4 tt 

0169 




4 01 "f 4 

1071 




TAD 


LNOPUT 


/T EXT rri AML AD OR , 


0166 


f% r\ fx A 

0204 


7A a\ A 

3014 




DC A 


PUTB 


/OF WHERE TO PUT NOS, 


0167 


n f% a 

0209 


A 4 A A 

6141 




LINC 






0170 








LMODE 






0171 


0200 


2066 




AOD 


P43 


/CARRI AGE RETURN 


0172 


no A*f 

02 07 


4 1 in 

13 40 




STH 




/ZAP FIRST BACKSLASH 


0173 


010 4 01 

02 10 


2356 




FR AME2*27i2000 




0174 


0211 


10 00 




IDA 






0175 


0212 


00 67 




P34 






0176 


0213 


4 1 An 

1340 




STH 




/PUT BACKSLASH HERE 


0177 


017 4 A 

0214 


6367 




FRAME2+40I 6000 




0200 


021? 


00 02 




onp 

r U r 






02 01 








dm nn r 






ran AO 

0202 


02 16 


4450 


LISNi 


IM C ! 


IDISPLAY 


0203 


unit 

02 17 


6031 




if c c 






0204 


0220 


9216 




IMP 


,»2 




nnnc 

020? 


01 7 94 

0221 


A. ft 1 At 

6036 




KR R 




/HEAD TTY 


02 06 


02 22 


30 63 




UW A 


CH A" 




02 07 


0223 


1063 




TAQ 


fin lD 

CH A" 




0210 


02 24 


4 A A K 

1045 




Tin 

TAD 


MX 77 




0211 


0229 


1 <Bn 

7490 




C M A 

3 IN A 




/ Dl ID n 1 IT 1 


■ nil n 

0212 


01 O 9 A 

0220 


Ell 1 

9314 




IM 0 


di i or riT 


J v c e 


02 13 


0|9 77 


1009 




tap. 


mt or i io 
MU r\f\ \J0 




a o 4 a 
0214 


019 101 
02 30 


t a tsa 
' ^ ?0 




5)iN A 




/r* aR dt at r or T? 

A" K| Al» L KC, 1 * 


oi9 «. Si 
02 1? 




ft 9 9 9 

9272 




IM D 


rpnn T 


/ • to 




019 "^9 


10 




ta n 

1 A W 


PCRM S 




«9 4 7 

0*1' 


0c »?«3 


7 A KOI 

/O?0 




CM ADA 
OIN A WU A 




/S? 


019 901 
»2«0 




•57 A A 




JMP t 


IGOTS 




m 9 94 
02 21 


01 9 

02 39 


4 a 4 4 

10 10 




TAD 


XTEMP 


/SEE WHERE BUFFER IS 


011 99 

0222 


02 36 


77 Ola 

77 00 




SMA CLA 




/COUNT<0? 


«9 Ol 

02 23 


019 "17 

02 37 


92 16 




JMP 


LISN 


/no- so only rubout or cr legal 


on 9 a 

vie**' 


01 7 4 01 

02 40 


in/1 
1063 




TAD 


CHAR 




022? 


A O A A 

02 41 


1057 




TAD 


M2 60 




Oil 9 A 

0226 


01 o A 7 

02 42 


7 K 4 01 

7 910 




SPA 




/<260? 


0227 


anil 

02 43 


K9 * x 

5216 




JMP 


LtSN 


/YES -NO GOOD 


02 30 


02 44 


1030 




TAD 


M10 




0231 


024? 


7700 




SMA CLA 




/>267? 


novo 

0232 


02 40 


9216 




JMP 


LISN 


/YES 


a a -» i 

0233 


0247 


1063 




TAD 


CHAR 


/GET THE CHAR 


0234 


01 9 K 01 

0290 


A 4 4 4 

©141 




LINC 






023? 








LMODE 






0236 


0251 


13 54 




STH 


PUTB 


/PUT IN DISPLAY 


01 7 1 7 

0237 


a 9 K9 

0292 


< 01 a oi 
1000 




LDA 




0) 9 401 

0240 


0I9KX 

0293 


an 4? 
00 07 




P34 






019 4 4 

0241 


019 Ki 

02 94 


4 1 74 

1374 




STH I 


PUTB 


/PUT M V AFTER IT 


21242 


0)255 


018 02 




POP 






0243 








PMOOE 






02 44 


02 56 


mz 




CLA 






0249 


0257 


1063 




TAD 


CHAR 




0246 


0260 


00 46 




AND 


P7 




0247 


0261 


3063 




DCA 


CHAR 




0250 


0262 


1025 




TAD 


HOLD 


/THE NUMBER WE "RE BUILDING 


0251 


0263 


7104 




CLL RAL 







0252 


0264 


7006 




RTL 






0253 


0265 


1063 




TAD 


CHAR 


/ADD IN MOST RECENT 


0254 


0266 


3 02 5 




DCA 


HOLD 




0255 


0267 


2016 




IS? 


XTEMP 




0256 


0270 


7000 




NOP 




/IN CASE OF SKIP 


0257 


0271 


5216 




JMP 


LI SN 


/ W A I T FOR NEXT 


0260 


0272 


7200 


CRGOT, 


CL A 






02 61 


02 73 


1036 




TAD 


P3443 




0262 


0274 


3437 




DC A I 


slashi 




0263 


0275 


1025 




TAD 


HOLD 


/GET LINE NO, 


0264 


0276 


1045 




TAD 


M377 




02 65 


0277 


7540 




SMA SEA 




/> 377? 


02 66 


03 00 


54 26 




JMP I 


EX IT 


/YES - IGNORE 


0267 


0301 


1046 




TAD 


P7 


/* -370 


0270 


0302 


7700 




SMA CL A 




/>370? 


0271 


0303 


5306 




JMP 


,♦3 




0272 


0304 


1025 




TAD 


HOLD 




0273 


0305 


5310 




JMP 


Si 




0274 


0306 


1025 




TAO 


HOLD 


/YES 


0275 


0307 


0060 




AND 


P370 


/SO MAKE IT 370 


0276 


0310 


3070 


SI, 


DCA 


RBASE 


/SET RELATIVE BASE POINTER 


0277 


0311 


3023 




DCA 


LINE 


/SET CURSOR 


0300 


0312 


30 24 




DC A 


LI NPOS 


/TO UPPER LEFT 


0301 


0313 


5426 




JMP I 


EXIT 




0302 


0314 


7325 


RUBGQT , 


CL A CLL 


CML RAL 


I AC/ + 3 


03 03 


0315 


1016 




tad 


XTEMP 




0304 


0316 


7650 




SNA CLA 




/ALREADY ERASED ALL? 


0305 


0317 


5341 




JMP 


Si SH BK 


/YES-SO EXIT THIS MADNESS 


03 06 


0320 


70 40 




CM A 






0307 


03 21 


1014 




TAD 


PUTB 


/BACK UP POINTER 


0310 


0322 


3014 




DC A 


PUTB 




0311 


0323 


7040 




CM A 






0312 


0324 


1016 




TAD 


XTEMP 


/BACK UP COUNTER 


0313 


03 25 


3016 




DC A 


XTEM P 




0314 


0326 


6141 




LINC 






0315 








LMODE 






0316 


0327 


2067 




ADD 


P34 




0317 


03 30 


13 74 




ST H I 


PUTB 


/PUT SLASH BACK 1/2 WORD 


03 20 


0331 


1000 




LDA 






0321 


0332 


0025 




HOLD 




/REMOVE LAST DIGIT TYPED 


03 22 


0333 


1560 




BCL I 






0323 


0334 


0007 




0007 






03 24 


0335 


03 03 




RQR 3 






0325 


0336 


4025 




STC 


HOLD 




03 26 


03 37 


0002 




POP 






0327 








PMQOE 






0330 


0340 


5216 




JMP 


LISN 


/WAIT FOR NEXT CHAR 


0331 


0341 


7332 


SLSHBK, 


CLA CLL 


CML RTR 


/TO RESET BACKSLASH 


0332 


0342 


30 25 




OCA 


HOLD 


/PUT IN A RIDICULOUS LINE NUMBER 


0333 


0343 


5272 




JMP 


CR GOT 


/THEN GO TO CR ROUTINE 


0334 


0344 


0400 


IGOTSi 


COTS 






0335 








EJECT 







0336 

WW WW 








PAGE 






0337 






/COME 


HERE AFTER <UNEFEEQ + S> 


0340 

v w ~ v 






/ 








03 41 


04 00 


61 41 


GOTS t 

WW 1 W f 


LI NC 






0342 








LMODE 






03 43 


04 01 


0517 




ls w 




/READ LSW«MASK 


0344 


0402 


4021 




ST C 


MASK 


0349 


0403 


0002 




PDP 






0346 

W W ~ w 








pmohf 






0347 


0404 


7604 




LAS 




/GET WHAT TO MATCH 


0350 


04 05 


0021 




AND 


MASK 




03 51 


0406 


3022 




DC A 


MA TCH 




0352 


0407 


7200 


SCAN » 


CLA 




/ 


0353 


0410 


1070 




tad 


RR AST 


/SET UP fOR AUTO»JNDEX 


0354 


0411 


1064 




TAD 

! P* Ir 


BASE 

WW **w 


/FORM POINlTFR 


0355 


0412! 

~ mm 


3012 




DC A 


GETPNT 


0356 


0413 


1412 
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(WW 4 
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0357 


0414 


0021 

*fm mm 
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m It W 


MASK 




0360 


0415 


7041 




CIA 






0361 

v v w m 


0416 


1022 




tad 


MA TCW 




0362 


0417 


7650 




SNA CLA 






0363 


0420 


5232 




JMP 


SA ME 


f v» V w U 


0364 


0421 

fit * 


1070 




TAD 


RB ASF 


/B LIMP 


0365 


0422 


7001 




IAC 




03 66 


04 23 


30 70 




DC A 


RB ASF 




0367 


0424 


1070 




TAD 


RB ASF 




0370 


0425 


1045 




TAD 


M377 




0371 


0426 


7710 




SPA CLA 




/D0NE7 


0372 


0427 


5207 




JMP 
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0373 
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3025 




DC A 
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JMP T 
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TAD 
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0405 


0442 


00 46 
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P7 
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0443 
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OCA 
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DCA 


LINPOS 
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1036 




TAD 
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0414 


0451 
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EXIT 
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l\«n v 
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04 46 

If"? "TO 


04 76 

If *r ^ v 


65 07 






R T TS FT 
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x^ 
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Ann 
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0453 
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0504 
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rnUNTi 

V/U WIN IX 


/? 


0456 
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06 41 
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i nA 
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0461 
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0512 


00 00 
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0463 


05 13 


1620 
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/Ann mfw 


0464 


0514 


0000 


BI TS i 


0 






0465 


0515 


1052 




STA 


GETPNT 


/REPLACE THE NUMBER 


0466 


0516 


0642 




LDF 2 






0467 


0517 


0002 




POP 






0470 








pmooe: 






0471 


0520 


5721 




JMP I 






0472 


0521 


1266 




KSPACE 




/NOW DO THIS 


0473 








EJECT 







01 A 1 A 
104 / «J 






/COME 


HERE TO 


01 SPLA Y 


CURSOR 


04 75 












01 4 7 £ 


ra C 99 
0344 


n rx cf. rx 
0000 


DI SCUR 


t 0 






1714 77 


05 9 1 


A1 41 




LI NC 














i m nn r 






0 5 01 


0574 


30 34 




Ann 
AU U 


LI NPQS 


/LINE POSITION 0»o 


05 0? 




001 7 








05 03 


(715 5A 

103 CO 


4010 
"♦if x\o 




ct r 

STC 


f n 1 1 M T 1 
UU UN I 1 


/HOW MANY TIMEb TO BUMP X 


cm 014 
I03 io*t 


015 9 7 
»54 / 


9 01 9 1 
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ADO 
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L I NE 
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/LINE NO, 0-7 


om 05 
I03 »3 


103 «lt 


001 1 7 
lOW X / 




CO M 




Ol K d A 
|0 3 It) O 
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05 *H 


40 1 1 




STC 
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0507 


0532 
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35A3 
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/ T M 1 T T A 1 V 
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0151 0 


0l 5 33 
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ci 1 by 
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AO A 
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/OO Wt NEEU TO BUMP Y7 


0311 


0514 
K' 3 0 


0 4 5 A 
K>7 50 




SKP 




/YES 


SCO 

05 1< 


05 03 


0341 




JMP 


SAVEY 


/Y OK»SAVE & BUMP X 


0513 


05 36 


30 15 
Cv 09 




ADO 


M40 


/SAB nnUM V 

/TAP DOWN T 


(7I5 1 4 
03 1*» 


(715 17 


(719 11 




XSK I 


C0UNT2 


/" 0« E? 




0540 


A511 




JMP 


SUBY 


/V PC 

/Y to 


Ol5 1 A 

I0«?1 V 


015 4l 


40 A3 
710 04 




STC 


CURY 


/Y CURSOR POSITION 


Ol5 1 7 
I03 1 / 


0(S 49 
109 7 4 


35 A1 
43 00 




ADD 


P3 02 


/INITIAL X OF CURSOR 


OIK 901 
107 40 


01 K 41 

105 *»0 


01 9 4 01 
04 10 


5U0X t 


XSK C0UNT1 


/NEED TO BUMP X? 


I0341 


01 54 4 
10 5* «♦ 


045 A 




SKP 




(0344 


10 5 «»3 


/LKC4 

03 31 




JMP 


SAVEX 


/X OK 


Ol5 91 

03 40 


05 «t0 


c\0 Ol 




ADD 


P12 


/BUMP OVER X 


0l5 94 

05 4* 


05 4 r 


019 101 
04 30 




XSK I 


C0UNT1 




act 9K 
05 43 


05 30 


03 43 




JMP 


SUBX 


4kJAMl» V/ 

/MORE FOR X 


0(5 9A 
0? 4© 


OIK <K1 

05 31 


401 011 
•♦0 01 


C A \IC V 

SA Vfc X» 


STC 


1 


/X GOES HERE FOR DSC 


0I5 97 
03 4 f 


OIK 59 
105 3c 


901 AO 
40 04 




ADD 


CURY 


/ W f 11 1 A 

/Y IN AC 


05 10 

I03 0«? 


015 51 


1 7 40 

1 / 00 




DSC I 






0l5 11 
03 <31 


0)5 54 
0537 


74 74 




7434 




i v vr pin 

/PATTERN 


a5 19 
03 04 


015 BR 
0533 


17 00 




DSC I 






05 33 


0556 


34 74 




34 74 




/rn.R riJPQnR 


0534 


0557 


0002 




POP 




0535 








PMOOC 






0536 


0560 


72 00 




CL A 






0537 


0561 


5722 




JMP I 


D I SCUR 


/GET OUT OF HERE 


0540 


05 62 


0140 


Pi 40 , 


140 






0541 


0563 


0302 


P302, 


302 






05 42 








EJECT 







0543 








PAGE 






0544 






/D ISPL A> 


' IOC 


AND CONTENTS 


0545 






/FOR 10 


SUCCESSIVE WORDS 


05 46 






/ 








0547 


0600 


0000 


DIS10I 


0 






0550 


0601 


7200 




CLA 






0551 


0602 


1070 




TAD 


RBASE 


/STARTING WORD NUMBER 


05 52 


06 03 


33 44 




DC A 


RB 




05 53 


0604 


10 30 




TAD 


Ml 0 




0554 


06 05 


3020 




DC A 


WRDCNT 


/10 WRDS IN ALL 


0555 


0606 


1345 




TAD 


P160 


/INITIAL Y 


05 56 


0607 


30 33 


BUMPY » 


DC A 


YCOR 




0557 


0610 


1346 




TAD 


P204 


/INITIAL X 


0560 


0611 


3031 




DC A 


XCOR 




0561 


0612 


13 44 




TAD 


RB 




0562 


0613 


1064 




TAD 


BASE 




0563 


0614 


23 44 




I S 2 


RB 


/BUMP FOR NEXT TIME 


0564 


0615 


3217 




OCA 


,♦2 

LOCDIS 




0565 


0616 


4226 




-JMS 




0566 


0617 


0000 




0 




/ADDR, To DISPLAY 


0567 


0620 


2020 




JSH 


WRDCNT 


/DONE ALL WORDS? 


05 70 


0621 


7410 




SKP 






0571 


0622 


5600 




vIMP 


I DIS10 


/YES 


0572 


0623 


1035 




TAD 


M40 




05 73 


06 24 


1033 




TAD 


YCOR 


/BUMP DOWN Y 


0574 


0625 


5207 




JMP 


BUMPY 


/DO NEXT LOC 8, CONTENTS 


0575 






/ 








0576 


0626 


0000 


LOCD IS f 


0 




/DISPLAY LOCATION « CONTENTS 


0577 


0627 


7040 




CMA 




/-I 


0600 


0630 


1626 




TAD 


I LOCDIS 


/GET ADDR TO DISPLAY 


0601 


06 31 


3012 




DC A 


GETPNT 




0602 


0632 


2226 




1SZ 


LOCD IS 




06 03 


06 33 


1412 




TAD 


I GETPNT 


/GET CONTENTS 


0604 


0634 


30 42 




DC A 


WORD 




0605 


0635 


7346 




CLA 


CLL CMA RTL 


/-3 


0606 


0636 


3010 




OCA 


COUNT1 




0607 


0637 


7344 




CLA 


CLL CMA RAL 


/-2 


0610 


0640 


3011 




DC A 


C0UNT2 


/2 NOS, TO DO 


0611 


0641 


1012 




TAD 


GETPNT 


/GET ADDR, 


0612 


0642 


0041 




AND 


P377 


/MAKE IT A RELATIVE BLOCK ADDR 


0613 


0643 


7104 




CLL 


RAL 




0614 


0644 


7006 




RTL 




/LEFT- JUSTIFY 


0615 


0645 


7104 


DONUMi 


CLL 


RAL 


/ONCE TO LINK 


06 16 


06 46 


30 27 




DC A 


TEMP 




0617 


0647 


7004 




RAL 






0620 
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DC A 


LINK 


/PRESERVE THE LINK 


0621 
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P7 
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/DONE ALL 


0IA 41 
W041 


0IA71 
WO / 1 


K9K1 
9491 




IU D 

JM r 


r> r* Tki 1 1 u 
GtTNUM 


/NO 


0A 4 9 


0A 7 9 
WO / C 


901 1 
4B1 1 




T C 2 

lac 


f ft ll M T O 


/UONt BOTH 




0IA 71 
WO / w 


51 4 A 




Iki D 


V\f\ ^ft M 


ftt » i-i rift 

/GOT TO DO 


0644 

V W 1 ■» 


0674 

BO / ™ 


7344 

/ W 1 ~ 




n a pi i 


pu a DAI 
WrlA WAU 


/ " 4 


01 A 45 


0IA75 

wo / ? 


10 1 01 
wW 1W 




pip a 
UC A 


Pft I IM T1 


yw ftu riur 
/NOW GIVE 


CIA 4A 

wo ^o 


0IA 7A 

wo /o 


41 1A 
*0 00 




JM 9 


Dl 1 MO V 




OA 47 
B P "t » 


06 77 

BP I f 


1 0 49 
AB "4 




TAU 


uft on 
WUnU 




IC v ?o 


Oil 00 

B f BB 


70 1 9 
/ B A4 




DTP 
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LINE 






JMP 


I 


EX IT 






KF 










CLA 






/COME PERE FOR 


CTRL/P 


TAD 


I 


IBLOCK 






SNA 


CLA 




/0? 




JMP 


I 


EX I T 


/YES-DONT BACK 


UP 


CM A 










TAD 


I 


IBLOCK 






DCA 


I 


IBLOCK 






JMP 




KCR 






CLA 


CLL 


CM A RTL 


/-3 




TAD 




LINPOS 






SMA 


CLA 


/END OF LINE? 




JMP 




KRET 


/YES 




uc 










TAD 




LI NPOS 






OCA 




LINPOS 


/MOVE OVER 1 




JMP 


I 


EXIT 







EJCCT 



4 1 011 

10 01 








LMODE 






i 309 

1 JB< 








Cf CMMT 

otbMNT 


c 




1 3 at 

1OI0O 








.nil 
•410 






i 1 014 


0101 701 


01 001 

97 1010 


v yv . 

A A A ♦ 








1305 


00] 21 
if if * 4 


6046 




601 46 
9IP "t9 




/itrrirTTV 


4 3 06 

AO oo 


0101 92 
10)0 4* 


1 0 90 
A«3 cw 




i n A T 








0101 9 3 


6047 
99 *• / 




Jnr 


VI or 1 






010194 


4029 




CTf 




/ M A U C TL1TC nklCCflMI V 

ZnAKt. Tnlo UNCL"*UNLT 


4 t 4 1 
1011 


an ok 
vv 49 


an no 
VVVC 




POP 






1 31 9 








punnr 
"nUUt 






1313 

A v A v 


4026 

*t K> * v 


621 3 
Oslo 




vl r UU r 


1 01 

A 10 




4111 

10 1* 


4 01 97 


14 71 

07 /o 




UC A J 


LID t T C 
WR I I t 


f* tl 79 


1111 

1<9 1? 


40 30 
*» 09 


10 74 
A9 / 7 




t a n 

T A V 


OR 77 9 

r9 f r C 






40 31 
*9 OA 


14 71 

0 ~ 1 7 




nr a i 


D7 77 f\ 

r 1 1 r 0 




101' 


40X9 
1V0£ 


1 017 A 
A 9 f 0 




T A ft 

1 A U 


DC 7 7 "l 
r2 / / 0 




1320 

AO * 9 


4033 


34 77 

V 7 1 r 




nr a t 


P7777 

T 1 1 1 1 




1 3 91 
AO £A 


40 34 


62 01 
oe v a 




rn r 0 






1 I 99 
104< 


401 31 
f\D 0 7 


44 79 

7 7 /< 




WHO I 


or An 
Kt AU 




J, vtfO 


40 16 
*tw 0* 


01 1 01 4 
9A 10 A 




CV CD 1 |C 






1 324 


4037 

T Bl V r 


62 1 2 

u t AC 




TTT 10 

v t r A v 






1 X 91 
AO 49 


40 40 

TIP ^V 


41010 

~ J V V 




IM C T 
vH 0 1 


DM fW C* 

rn uv t 




i 3 96 
AO <9 


40 41 

«»9 "»a 


62 1 1 
9<C AA 




rn ft 10 

vU r AO 






1397 


40 42 
79 *»c 


60 00 
OIP VV 




6000 
99 9 If 






1 3 id 

AO JB 


4043 
tip *v 


62 01 
94 I0A 




rnr 0 






4 X 11 
10 01 


4*0 44 


70 0I0I 

IV VV 




701 0101 






1 139 
1004 


4041 

«» 10 7 7 


1 0 01 01 
A W 10 10 




1000 






1000 


4101 4 A 


A1 4t1 

01 7i 




LINC 






1 334 

A 1 * O" 








LMOOE 






1009 


001 4 7 


0641 
109 7 0 


nt cd 1 . 
Ul or Ai 


LOF 3 






1 3 36 
AO 09 


00 10 


4 0 20 
AIP CIO 




LOA I 






1 3 17 


010 14 
997A 


6111 
9 7 7 7 




JMP 


GETKBD 


/iim?ad ktvon ton rurri** 

/UINC Ar (S t ' OU An U LnLvIN 


4 3 40 

10 nv 


0101 19 
910 7* 


1 0 40I 
A 9 79 




STA 






1 341 
AO ^ A 


0013 


2156 
C A 7 9 




OA J t 2000 




4 349 

AO 


0054 

IP IP <t 


06 03 

BS 90 




LIT 3 






1 343 


0011 
99 77 


06 49 
99 7 45 




LDF 2 






13 44 

AO 


0056 


6720 

9 f CV 




JMP 


Ql 


/HAKinA AT 60901 
/UAINUA A 1 OBclfl 


4 1 *t A K 

10*9 


010m 7 

10109 1 


010701 
1010 t V 


l»t I A NO i 


SET I 


C0UNT1 




4 3 46 
AO **9 


00 60 

99 99 


11 73 

I i 1 0 




•4 




/unu m am v nirtTc 


1 3 47 

AO * 1 


00 61 
IP IP 9 A 


00 72 

VV 1 c 




SET I 


GE TPNT 


zuur or a mq utr o tq 

/WttLnt A INO Wt, n iO 


1 3*50 
A079 


0062 

IP IP wis 


0379 

VQ 1 C 




ANSR1 






1 3m 

AO 9 A 


00 A 3 

1010 90 


ai ri 

OA 90 




JMP 


GET 


/GET THE BLOCK NO, 


4 X R9 
1094 


a a 44 
999* 


44 K4 

41 91 




STC 


BLOCK 




1050 






/ 








1 1 14 
AO 9* 


00 61 

99 97 


00 70 
vv fv 




SET 1 


COUNT! 


/M nu II M 1 T 

/NOW UNIT 


1 315 

AO 97 


00 66 

10 IP O v 


77 75 

< I 1 7 




-2 






4 116 
AO 90 


00167 
910 9 / 


001 79 
99V 4 




SET I 


GETPNT 




4 tK7 
109 ' 


001 70 


it 1 74 
4 0/4 




AN$R1*2!4000 




4 1 A 01 
100W 


BW /I 


41 Kt 

01 90 




JMP 


GET 


t"T T LIE" 1 1 M T ▼ 

/GET T Ht UNIT 


1361 


0072 


4147 

^ A 1 I 




STC 


UNIT 


1362 


00 73 


0002 




POP 






1 363 








PMODE 






1364 


40 74 


6141 


GB < 


UNC 






1365 








LMODE 






1366 


0075 


1000 




IDA 






1367 


00 76 


4147 




UN I T 






1370 






/ 






1371 


00 77 


00 70 




SET I 


C0UNT1 


/NOW PUT UNIT IN TEXT 


1372 


0100 


7775 




-2 




/2 DIGITS 


1373 


0101 


0073 




SET I 


PUTPNT 


/WHERE TO STORE 



1374 


0102 


23 31 




FRAME2*2J2000 




13 73 


01 03 


Oc 03 




JMP 


UNPACK 




1376 






/ 








J.37 7 


a * a A 
0104 


01 01 Tl 01 




SET I 


C0UNT1 




4 4 ma 
1* 00 


»1 IP? 


7 f 73 




•4 




/4 p\ ip tTC 


4 A AM 
14 01 


014 SI A 

01 00 


Ota 1>i 
00 73 




SET I 


PUTPNT 




1410 Z 


010 7 


/LITE 

0335 




FRAME2+6J6000 




14 03 


n 4 4 ft 
01 10 


4 fli m m 

10 00 




IDA 






41 A ft A 

14 04 


n* A 4 
0111 


A<t KJ4 

^151 




BLOCK 






A A ft R 

1405 


f%4 4 1 

01 1Z 


40 01 R 

62 05 




JMP 


UNPACK 




1400 


f% 4 4 *t 

0113 


0002 




POP 






1407 








PMODE 






1410 


A 4 4 A 

4114 


44 TO 

44 72 




JMS I 


READ 


/NQW GET THE BLOCK 


1411 


4115 


4 4 4 "» 

4147 




PARAM 






1412 


A 4 4 A\ 

4116 


4.4 4 4 

61 41 




LINC 






4 4 4 1 

14 13 








LMQDE 






a A * A 

1414 


rt 4 4 1 

0117 


1020 




LDA I 






14 13 


OH 901 
01<» 


ADI OA 




JMP 


QAB 




« 4 < 4 
141© 


ft 4 r%4 

01 21 


tHA At 

00 43 




LOT 3 






4 A 4 7 

1417 


01 2< 


4 a 401 

10 40 




STA 






1420 


0123 


2156 




QAJJ2000 


/*AP KEYBOARD CHECK IN QANDA 


1421 


0124 


0642 




LOF 2 






1422 


ft 4 O C 

0125 


0002 




POP 






1423 








PMQOE 






1424 


4126 


7200 




CLA 






A A 4E 

1425 


4 4 Ol 

4127 


3023 




DC A 


LINE 




1426 


4130 


"I A O 4 

3024 




OCA 


LINPOS 


/SET CURSOR TO UPPER LEFT 


4 A O"? 

1427 


4131 


101 1101 

30 /0 




DC A 


RBASE 


/AND WINDOW TO ptGJNNING 


1* 3» 


Ai X3 
41 3< 




DUUUr* 


JMS 


DISPLAY 


/Mrtu o no (j fur ci* nor 
/NOW dnvW int ivOrt 


4 4 f 4 

14 31 


il 4 Tt 1 

4133 


4 01 1 4 

6031 




KSF 




/KEY TYPED? 


4 i 4 t O 

1432 


A 4 "I A 

4134 


3332 




JMP 


,-2 


/NO 


4 A 11 


44 1*i 

•♦1 35 


A 01 14, 

00 30 




KRB 




DAD T ▼ 1 

/5 nA 8 IT; 


4 4 "W 4 

1434 


4136 


3063 




OCA 


CHAR 




4 A 1 K 

1435 


A 4 17 

41 37 


Bj 7401 

3/40 




JMP I 


.♦1 


/WHAT DO Wt DO NOW? 


4> 4* -» 4? 

14 36 


^ 4 a n 

4140 


4 fk ft ft 
10 00 




KE YD EC 




/GO HERE TO FIND OUT 


1437 


4141 


0000 


0 ISP LAY 


i0 






A A A 1% 

14 40 


A 4 A O 

4142 


7o an 

72 00 




CLA 






A A AH 

14 41 


J 4 ,41 

41 43 


4 4 E4 

4451 




JMS I 


IOIS10 


/FLASH LOCATIONo 


4 A A O 

14 42 


4 4 4 4 

4144 


4 4 E O 

4452 




JMS I 


IOISCUR 


/FLASH CURSOR 


A A At 

14 40 


4 4 4R 

41 45 


44 lO 

44 32 




JMS I 


IQ2 


/PI i nn ¥ r V t 

/FLASH TEXT 


4 AAA 


A 1 4 A 


S74 1 
3/41 




JMP I 


DISPLAY 




14 45 






/ 








14 46 








PARAM* , 






1447 


4147 


0000 


UN IT # 


0 




/PARAMETER LIST FOR MS I/O 


1450 


4150 


0004 




4 




/«2000 


1451 


4151 


0000 


BLOCK, 


0 






14 52 


4152 


0001 




1 






14 53 








EJECT 







4 A S4 








IM 00 E 










/ 






1 4 *>A 
1* 90 






/DECOOES A QANDA 


. FRAME 


1 45 7 




1 Dl (71 01 




LDA 

0 




1460 


01 B4 


010 0101 
1010 






1 4 A1 

X^ OA 


011 55 


42 014 




ST C 


GETQUJ 


1462 
A ^ o c 


01 56 


42 013 




5 T C 


QHOLD 


14 63 


01 57 

if* < ' 


1 3 39 

*V Oft 


INC. A 1 i 


i n Li t 


Gfc T PNT 


A •» O •> 


01 1 A 0I 


1 4 A Of 
X * OI0 




C if » 

5 Afc I 




1465 


0l6l 


00 00I 




(A 




1466 


01 62 


04 36 




C 1/ D 




1467 


011 A3 
vX Ow 


A2 01 01 
0<> I0IO 




JMP 


QH OL D"3 


1 4 7 CI 


0(1 a4 


1' OW 




BCL I 




011 AR 
101 0? 


77 017 

/ft)/ 




77 017 

/ / V / 




1 4 79 


0I4 AA 


1** 00 




cap * 
5>AE I 




1473 


0 1 67 


001 A 01 
1010010 




A 01 
010 




1474 


01 70 

VX f V 


60 47 




JriP 


n T cD 4 


1475 


01 7l 

» 1 ' 1 


1 H 1 o 




i rs li 


Gt T PNT 


14 76 


01 72 
hi* / * 


1 5 A 01 
1< 010 




6CL I 




1477 


0173 


7770I 
/ f / V 




7770 






011 74 
V X / ~ 


0I30I3 








1 501 


011 75 

%>x f y 


99 0H 




ADD 


QHOLD 


1 502 


0J1 76 
VX f 0 


094 t 




ROL 3 


1503 


01 77 

"X ' ' 


49 on 




STC 


QHOLD 


1504 


0200 


0230 




XSK I 


rn ljn Ti 

V/U win I X 


1505 


02 01 


6157 




JMP 


NEXT 


1506 


0202 


1020 




LOA I 


1507 


0203 


00 00 


OHOLOi 


0 




1510 


0204 


0000 


GETOUT $ 


0 




isii 






/ 






1512 






/ 






1513 








EJECT 





/SAVE RETURN 



/DECODE 
/GETPNT 



QANDA FRAME 
IS POINTER TO 



ANSWER FRAME 



/IS IT A 60-67? 

/No 



1 «5 1 4 






/M AK F 6» 
* n Af\ w w w 


BIT ASCII FROM 


n PT Al NO 


1515 


02 05 


4025 


UNPA CK • 

Will 1 vi* ( 


STC 


HDL n 


/SAVE AC 


1516 


0206 

IW £ f V 


2000 




Ann 


0 




1517 


0207 

v C %J f 


4244 




STC 


UN OUT 




15 20 


02 10 


00 51 

vv ✓ x 




SF T 


pnljN T2 




15 21 


02 11 


00 10 




CO UN Tl 




/ » MAX NO. OF DIGITS 


15 22 


02 12 


10 20 




i nA t 






1523 

J* «s C* *J 


02 13 


0004 




4 
f 




/max nr 4 


1 524 


01 2 14 


20 1 0 

ttv AIC 




An n 
au w 


rn un T1 


/Wntl MANY WF UAWF 


1525 


0215 


00 17 

W V X ' 




rnM 






1526 
<l> < c w 


02 16 


10 40 




ST A 

w I a 






1527 


0217 

V tm X r 


00 16 




YTFM P 






15 30 


0220 
eft c >v 


04 70 




AST T 




/« 0? 


1531 

* ^ WA 


0? 21 

VC *a 


62 30 




JMP 


ftr Tn t c, 


/YFS»NO NFFD TO SHIFT 




0999 
Beet 


1 000 




LU A 






1533 

X ? v v 


0923 
v C c v 


0095 




wni n 






1 5 14 


09 24 
IOC (C w 


02 43 




RDI 3 




/I TF T- lU<sT IF Y 

f W C-r 1 w JW Oil"! 


1535 


09 25 


02 36 






YTTM 0 

A 1 tn r 




1 5 36 


09 96 


A? o4 




IMD 


_ o 
f " t 




i 537 

A «7 v f 


0927 


4095 




STf 
0 1 w 


uni n 


/r.fiT T T 


A 9«*I0 


019 t0 
tO C 0 v 


1 0 Ol 0 




i n a 
LU A 






1 "54 1 




00 9R 
vie c 9 




uni n 






1 54 9 

1 


0I9X 9 


094 1 




on i "< 

KUl. 0 






1 543 


09 33 


1 0 40 




CT A 

oT A 






4 544 
19^"» 


IOC 0* 


CHOI 

WW c9 










i «s4t5 
A"*9 


0 9 IK 


X?OI0 




BPI T 






1546 


02 36 


7770 




7770 






1547 


0237 


1620 




BSE I 






1550 


0240 


0060 




60 






1551 


02 41 


13 73 




STH I 


PUTPNT 




1552 


0242 


0230 




XSK I 


C0UNT1 




1553 


0243 


6230 




JMP 


GETDIG 




1554 


0244 


0000 


UNOUT, 


0 






1555 






/ 








1556 








EJECT 







1557 






15 60 






1961 


02 45 


0643 


1561 






1562 


0246 


0643 


1562 


0247 


0640 


1562 


0250 


4040 


1562 


0251 


4040 


1562 


0252 


4040 


4 K t ") 

1562 


0253 


4024 


15 62 






1563 


0254 


0504 


1563 


0255 


4340 


1563 


0256 


A fk A f% 

4040 


1563 


0257 


4040 


4 K 4 Y 

15 63 


0260 


iff 4 A 

4040 


1563 


/DO £ 4 

0261 


4040 


15 63 


02 62 


40 40 


1563 


0263 


4040 


4 K Z 1 

1563 


02 64 


5024 


1563 


0265 


0120 


15 63 


0266 


05 40 


1563 


0267 


0504 


1563 


0270 


1124 


1563 


0271 


1722 


15 63 






15 64 


02 72 


51 43 


4 K LA 

15 64 






4 K it 

156? 


0273 


0643 


4 K L K 

1565 


f% r\ m A 

0274 


4040 


1565 


0275 


4040 


1565 


0276 


4040 


196? 


Oil 1 "1 


A tx A t% 


1565 


0300 


A ft A t% 

4040 


4 ■ A IE 

1565 


0301 


4040 


1565 


0302 


2205 


1565 


0303 


t% A t% A 

0104 


1565 


0304 


4002 


1565 


AT SIR 

0305 


4 it j «f 

1417 


4t re / tf 

1565 


0306 


0313 


1565 


0307 


4074 


1565 






1566 


0310 


6443 


1566 






1567 


0311 


1043 


1567 


M*f 4 A 

0312 


4040 


1567 


0313 


4040 


1567 


0314 


4040 


iffy* 

1567 


/% fit' 

0315 


4040 


1567 


0316 


4040 


1567 


0317 


4040 


4 K £ "t 

15 67 


n 1 o fl 

0320 


Mil *•*• ^ 

06 22 


1567 


0321 


1715 


1567 


0322 


4025 


1567 


0323 


1611 


1567 


0324 


2440 


1567 


0325 


74 62 


1567 


0326 


3400 


1567 







/QANDA TEXT FRAMES 
FR AM El $ TEXT "F 



TEO 



(TAPE EDITOR) 



READ BLOCK <4 



FROM UNIT <2\" 



5 70 






/ 


571 


0327 


2516 




571 


0330 


1124 




571 


0331 


4030 




571 






FR 


572 


0332 


3043 




572 


0333 


0214 




572 


0334 


1703 




572 


0335 


1340 




572 


0336 


3030 




572 






BL 


573 


0337 


3030 




573 


0340 


4340 




573 


0341 


4040 




573 


0342 


4040 




573 


0343 


4040 




573 


0344 


4040 




573 


0345 


4040 




573 


0346 


4040 




573 


0347 


1417 




573 


0350 


0340 




573 


0351 


4040 




573 


0352 


0317 




573 


0353 


1624 




573 


0354 


0516 




573 


0355 


2423 




573 








574 


0356 


3443 




574 






F 


575 


0357 


0643 




575 






F 


576 


0360 


0643 




576 






F 


577 


0361 


0643 




5 77 






F 


600 


0362 


0643 




600 






F 


601 


0363 


0643 




601 






F 


6 02 


03 64 


06 43 




602 






F 


603 


0365 


0643 




603 


0366 


4040 




603 


03 67 


75 30 




603 


0370 


3030 




603 


0371 


3400 




603 








604 


0372 


0000 


AN 


605 


0373 


0000 




606 


0374 


0000 




,607 


0375 


0000 




610 


0376 


0000 




.611 


03 77 


0000 




612 








.613 









i TEXT "UNIT XX 



BLOCK XXXX 



LOC CQNTENTSN 



»XXX\" 



0 
0 
0 
0 
0 

EJECT 



/CAUTION! I THINK THIS ANSWER BUFFER 
/GOES OVER THE PAGE BOUNDARY WHEN IT"S F 



.614 






SEGMNT 3 




1615 






»20 






1616 






/QANDA SUBROUTINE FOR 


THE 


i617 






/PDP-12 






t620 






/ 






1621 






/TO HERE TO 


IN I T I A L I 2E 


THE ROUTINE 


l6?2 






/ 






1623 


0020 


1020 


OA IN IT » 10A 


I 


/SAVE JMP RETURN 


t624 


0021 


0002 


2 






.625 


0022 


2000 


ADO 


0 




,626 


0023 


1060 


ST A 


I 




.6 27 


00 24 


00 00 


QABi 0 




/JMP *3 


,630 


00 25 


2220 


ADO 


QAL*3 




1631 


00 26 


40 01 


STC 


1 


/PTR TO FIRST PA RAM 


.632 


0027 


1001 


IDA 


1 


/GET FIRST PARAM 


,633 


0030 


2304 


ADD 


QAQ*1 


/PTR TO HALF WORD-1 


.6 34 


0031 


4077 


STC 


QAG-3 




,635 


0032 


1021 


IDA 


I 1 




,6 36 


00 33 


40 72 


STC 


QARFSH-1 




,637 


00 34 


4006 


STC 


6 


/XR6 USED AS A SWITCH, 30 IF NO ANSWER FIELD, 


,6 40 


00 35 


00 43 


QACA, SET 


3 /XR3 TO PTR TO ANSWERS 


1641 


0036 


00 72 


QARFSH-1 


IF 


.6 42 


00 37 


0044 


SET 


4 


/XR4 TO PTR TO QUESTIONS 


.643 


0040 


00 77 


QAG-3 




L6 44 










/TO HERE IF FIRST TIME THROUGH OR FOLLOWING 


.645 


00 41 


00 41 


SET 


1 




.646 


0042 


0004 


4 






.647 


0043 


6310 


JMP 


OAT 




1650 


0044 


0016 


NOP 




/F 


1651 


0045 


1324 


IDH 


I 4 


/H, BUMP PTR IF H OR F 


.652 


0046 


6251 


QAD » JMP 


QAO 




.653 


00 47 


60 55 


JMP 


,♦6 


/7 4 


k 654 


0050 


6070 


JMP 


QAE 


/34 


.655 


0051 


1460 


SAE 


I 


/CR? 


,656 


0052 


0043 


43 






L657 


0053 


6046 


JMP 


QAD 


/NO 


.660 


0054 


60 41 


JMP 


QACA*4 /EXAMINE NEXT CHAR 


L661 










/INITIALIZE ANSWER BUFR 


l662 


00 55 


1343 


STH 


3 


/74 TO ANSWERS 


1663 


0056 


1324 


IDH 


I 4 


/NEXT HALFWORD 


.664 


0057 


1120 


ADA 


I 




L665 


0060 


7717 


-60 






,666 


0061 


0017 


COM 






1667 


0062 


4006 


STC 


6 




1670 


0063 


1363 


STH 


I 3 


/0 IN AC 


L671 


0064 


0226 


XSK 


I 6 




1672 


0065 


6063 


JMP 


,-2 




1673 


0066 


13 23 


LDH 


I 3 


/BUMP PTR TO ANSWERS 


.674 


0067 


6046 


JMP 


QAO 




1675 










/ANSWER BUFR IS INITIATED 


.676 


0070 


1343 


OAEi STH 


3 




t677 


0071 


0064 


SET 


I 4 


/XR4 TO PTR TO LAST TYPED CHAR JN ANSWER BUFR 


1700 


0072 


0000 


0 




1701 










/----RE-ENTER HERE TO REFRESH 


1702 


0073 


1020 


QARFSH # LD A 


I 


/INITIAL Y POSITION 


1703 


0074 


0377 


377 




1704 


0075 


4133 


STC 


QAH-1 




1705 


0076 


0063 


SET 


I 3 


/XR3 TO PTR TO HALFWORD QUESTIONS-1 


1706 


0077 


0000 


0 







\?B7 


0100 


0045 




SET 


5 


/XR5 TO PTR TO LAST DISPLAYED CHAR IN ANSWER 




0101 


00 72 




QARFSH -1 




1711 


0102 


0041 


QAG, 


SE T 


1 




1712 


0103 


0003 




3 






1713 


0104 


6310 




JM P 


QA T 




1714 


0105 


6114 




JMP 


• ♦7 


/F 


1715 


0106 


1323 




LOH 


I 3 


/H , BUMP PTR 


1716 


0107 


1020 




ID A 


I 


/NEITHER, ASSUME HALF SIZE 


1717 


0110 


1560 




BCL 


I 




1720 


0111 


4123 




STC 


QA M*2 


/SET JNSTR TO CLEAR FF FOR HALF SIZE 


1721 


0112 


2542 




ADD 


QA W 


/NOP IN AC 


1722 


0113 


6121 




JM P 


QA M 




1723 


0114 


1323 




LOH 


I 3 


/BUMP PTR 


1724 


0115 


1020 




IDA 


I 




1725 


0116 


1620 




BSE 


I 




17 26 


0117 


4123 




STC 


QA M* 2 


/SET I NSTR TO SET FF FOR FULL SIZE 


1727 


0120 


2543 




ADO 


QAW*1 


/ADD 9U IN AC 


1730 


0121 


4265 


QAM, 


STC 


QAP+3 




1731 


0122 


0024 




MSC 


I 4 


/E AD CONTROL REGISTER 


1732 


0123 


1620 




BSE 


I 


/THIS INST R CHANGES, EITHER BSE & OR BCL & 


1733 


0124 


0200 




200 






1734 


0125 


0004 




MSC 


4 


/AC TO CONTROL REGISTER 


1735 


0126 


0061 




SET 


I 1 


/XR1 TO INITIAL X POSITION 


1736 


0127 


0000 




0 






1737 


0130 


1020 




IDA 


I 


/Y COORDINATE MULTIPLE 


1740 


0131 


7737 




-40 






1741 


0132 


1160 




ADM 


I 


/Y COORDINATE 


1742 


0133 


0000 




0 






1743 


0134 


13 23 


QAH, 


LDH 


I 3 




1744 


0135 


6252 




JMP 


QAO*l 




1745 


0136 


6321 




JMP 


QAZ 


/74 BUMP PTR TO NEXT CHAR, PUT 40 IN AC 


■ 746 


0137 


6156 




JMP 


QA J 


/34 


1747 


0140 


1420 




SHO 


I 


/NEI THER 


1750 


0141 


4300 




4300 




17 51 


01 42 


61 02 




JMP 


QAG 


/CR, MOVE X AND Y COORDINATE 


17 52 


0143 


62 62 




JMP 


QA P 


/I SPLAY CHAR 


1753 


0144 


6134 




JMP 


QA H 


/PICK UP NEXT CHAR 


1754 


0145 


62 62 




JMP 


QA P 


/TO HERE IF DISPLAYING ANSWER BUFR 


1755 


0146 


1520 




SRO 


I /SWITCH 


TO DISPLAY CURSOR, EITHER 0000 OR 7777 


1756 


mm . "Am 

0147 


0000 




0 




/IFXR4»XR5# THEN SWJTCH«7777 


1757 


0150 


6536 




JMP 


QAF 




1760 












/QUESTION MODE 


1761 


0151 


13 25 


QA I, 


UOH 


I 5 




1762 


0152 


6252 




JMP 


QAO*l 




1763 


0153 


6134 




JMP 


QA H 


/74 


1764 


0154 


6134 




JMP 


QA H 


/34 


1765 


0155 


6145 




JMP 


OAI-4 


/NEITHER, DISPLAY IT 


1766 


0156 


6555 


QAJ, 


JMP 


CETKBD 


/TO HERE IF DISPLAYED BUFFER 


1767 


0157 


04 70 




A2E 


I 




1770 


0160 


6024 




JMP 


QA B /NOTHING TYPED , EXIT 


1771 


0161 


0062 




SET 


I 2 




1772 


0162 


05 51 




QA Y 






1773 


0163 


1402 




SHO 


2 


/LF? 


1774 


0164 


6331 




JMP 


QA K* 4 


/YES, EXIT 
/CR? 


1775 


0165 


1422 




SHO 


I 2 


1776 


0166 


6243 




JMP 


QAN 




1777 


0167 


0206 




XSK 


6 


/IS THERE AN ANSWER FIELD? 


2000 


0170 


60 73 




JMP 


QARFSH 




20 01 


01 71 


14 22 




SHD 


I 2 


/<? 



!002 


0172 


6215 




JMP 


OAL 




>0 03 


0173 


1422 




SHO 


I 2 


/>? 


'004 


0174 


6325 




JMP 


QAK 




2005 


0175 


1422 




SHO 


I 2 


/ALT? 


2006 


0176 


6035 




JMP 


QACA /REINITIALIZE 


>007 


0177 


1422 




SHO 


I 2 


/BACK SLASH? 


'010 


0200 


6073 




JMP 


QARFSH 


/IGNORE 


2011 


0201 


1422 




SHO 


I 2 


/RUBOUT? 


'012 


0202 


6215 




JMP 


OAL 


/IGNORE 


2013 


0203 


1422 




SHO 


I 2 


/TAB? 


>014 


0204 


60 73 




JMP 


QARFSH 


/IGNORE 


2015 


02 05 


4212 




STC 


,♦5 


/ACCEPTABLE CHAR 


2016 


0206 


6251 




JMP 


QAO 


/TEST NEXT CHAR 


2017 


0207 


6303 




JMP 


QAQ 


/74 BACK PTR UP BY 1 


2020 


0210 


6303 




JMP 


QAQ 


/34 t 


2021 


0211 


1020 




LOA 


I 


/OK, STORE IT 


2022 


0212 


0000 




0 




2023 


0213 


13 44 




ST H 


4 




202^ 


02l4 


60 73 




JMP 


QARFSH 


/REDISPLAY 


2025 


0215 


1304 


QAU 


LOH 


4 


/TO HERE IF RUBBOUT OR < 


2026 


0216 


6252 




JMP 


QAOU 




2027 


0217 


6073 




JMP 


QARFSH 


/74 IGNORE 


2030 


0220 


1775 




-6002 




20 31 


0221 


13 02 




10 H 


2 


/TEST THE CHAR 


2032 


0222 


1460 




SAC 


I 


/RUBOUT? 


2033 


0223 


0037 




37 






20 34 


0224 


6303 




JMP 


QAQ 


/NO, BACK PTR UP BY 1 


20 35 


02 25 


00 45 




SET 


5 




2036 


0226 


0004 




4 






2037 


0227 


0043 




SET 


3 




2040 


0230 


0004 




4 






2041 


0231 


6233 




JMP 


.♦2 




2042 


0232 


1325 




LOH 


I 5 


/BUMP PTR 


2043 


0233 


1323 




LOH 


I 3 


/GET NEXT CHAR 


2044 


0234 


6252 




JMP 


QAQn 




2045 


0235 


0016 




NOP 




/IF 74 OR 34, REPLACE CURRENT CHAR 


2046 


0236 


0011 




CLR 






2047 


0237 


1345 




STH 


5 




2050 


0240 


0450 




A2E 




/WAS IT 74 OR 34? 


2051 


02 41 


6232 




JMP 


.-7 


/NO, CONTINUE 


2052 


0242 


6303 




JMP 


QAQ 


/BACK PTR UP BY 1 


2053 












/TO HERE IF CR 


2054 


0243 


0206 


QANi 


XSK 


6 




2055 


0244 


6331 




JMP 


QAK*4 


/EXIT ROUTINE IF NO ANSWER FIELD 


2056 


0245 


6251 




JMP 


QAO 




2057 


02 46 


6073 




JMP 


QARFSH 


/74 MOVE PTR TO NEXT QUESTION FJELD 


2060 


0247 


6071 




JMP 


QAE* 1 


/34 END OF BUFR, MOVE PTR TO FIRST i 


2061 


0250 


6245 




JMP 


QAN*2 




2062 












2063 


0251 


1324 


QAO, 


LOH 


I 4 


/S\R 


2064 


0252 


1420 




SHO 


I 


/ *1 74 BEGIN FIELD 


2065 


0253 


7400 




7400 


/ *2 34 END BUFR 


2066 


0254 


6000 




JMP 


0 


/ *3 NEITHER 74 NOR 34 


20 67 


0255 


14 60 




SAE 


I 




20 70 


0256 


0034 




34 






2071 


0257 


0220 




XSK 


I 0 




2072 


0260 


0220 




XSK 


I 0 




2073 


0261 


6000 




JMP 


0 




2074 












/S\R TO DISP LINC CHAR IN AC 



20 75 


02 62 


02 41 


QA P » 


ROL 1 


/MULT BY 2 FOR INDEX TO ADDRESS OF TABLE 


2076 


0263 


2550 




ADD QAX*4 




2077 


0264 


4002 




STC 2 


/ADDRESS OF CHAR TO DISP IN XR2 


2100 


0265 


2541 




ADD QA U 


/THIS INST R CHANGES, EITHER OP OR ADD 9U 


2101 


0266 


2541 




AO D QA U 




2102 


02 67 


20 01 




ADD 1 


/ADD 4 TO XRl TO SPACE CHAR 


2103 


0270 


4001 




STC 1 




2104 


02 71 


2005 




AO D 5 


/GET ADDRESS OF ANSWER BUFR 


2105 


02 72 


0017 




COM 




2106 


02 73 


2004 




ADO 4 




2107 


0274 


0450 




A2E 




2110 


0275 


0011 




CLR 




2111 


0276 


4147 




STC QA I -2 


/SWITCH=0 OR 7777 


2112 


0277 


2133 




ADD QAH-1 


/Y COORDINATE IN AC 


2113 


0300 


1742 




DSC 2 




2114 


0301 


1762 




DSC 1 2 


/DISPLAY CHAR 


2115 


0302 


6000 




JMP 0 




2116 


03 03 


1020 


OA Qf 


IDA I 


/BACK UP PTR BY 1 


2117 


0304 


3777 




• 4000 




2120 


0305 


1140 




AQM 




2121 


0306 


0004 




4 




2122 


0307 


6073 




JMP QARFSH 


/REDISPLAY 


2123 










/ 


2124 


0310 


1321 


QA T t 


LDH I 1 


/S \R 


2125 


0311 


1420 




SHD I 


/ *1 P 


2126 


0312 


0600 




0600 


/ *2 H 


2127 


0313 


6000 




JMP 0 


/ +3 NEITHER 


2130 


0314 


1460 




SAE I 




2131 


0315 


0010 




10 




2132 


0316 


0220 




XS K I 0 




2133 


0317 


0220 




XSK I 0 




2134 


0320 


60 00 




JMP 0 




2135 










/ 


2136 


0321 


1323 


QA 2* 


LDH I 3 




2137 


0322 


10 20 




LDA I 




2140 


0323 


0040 




40 




2141 


0324 


6145 




JMP QAI-4 




2142 










/TO HERE I F > 


2143 


0325 


13 24 


QAKi 


LDH J 4 




2144 


03 26 


04 70 




AHE I 


/IS CURRENT CHAR BLANK? 


2145 


03 27 


6303 




JMP QAQ 


/YES, IGNORE 


2146 


03 30 


65 44 




JMP QAX 


/MOVE DOT FORWARD 


2147 










/TO HERE TO EXIT WITH SKIP 


2150 


0331 


1020 




LDA I 




2151 


0332 


0001 




1 




2152 


03 33 


1140 




ADM 




2153 


03 34 


00 24 




QAB 




2154 


0335 


60 24 




JMP QAB 




2155 










/CHARACTER PATTERNS 


2156 


0336 


0101 


QAV# 


0101 


/KBD 0, ILLEGALi USED AS MARKER 


2157 


0337 


0101 




0101 




2160 


0340 


4477 




4477 


/l J A 


2161 


0341 


7744 




7744 




2162 


0342 


5177 




5177 


/2 IB 


2163 


0343 


2651 




2651 




2164 


03 44 


4136 




4136 


/3 tC 


2165 


0345 


2241 




2241 




2166 


0346 


4177 




4177 


/4I0 


2167 


0347 


3641 




3641 





2170 


0350 


45 77 


45 77 


/5:e 


2171 


0351 


4145 


4145 


2172 


0352 


4477 


4477 


/6tF 


2173 


0353 


4044 


4044 




21 74 


0354 


4136 


4136 


/7 : G 


2175 


0355 


2645 


2645 




2176 


03 56 


10 77 


10 77 


/l 01 H 


2177 


0357 


7710 


7710 




2200 


0360 


7741 


7741 


/111 I 


2201 


0361 


0041 


0041 


2202 


A** / A 

0362 


4142 


4142 


/12IJ 


2203 


0363 


4076 


4076 




2204 


0364 


1077 


1077 


/13IK 


2205 


0365 


4324 


4324 




2206 


0366 


0177 


0177 


/14il 


2207 


0367 


0301 


0301 




2210 


0370 


3077 


3077 


/15IM 


«0 4 4 

2* 11 


03 71 


"i y i n 

77 30 


7730 




2212 


03 72 


30 77 


30 77 


/l 6 J N 


954 1 

*2 Xo 


on 7i 


*7 "> 01 A 

71 06 


7706 


22 14 


0s> 74 


A<t tt 

41 77 


41 77 


/1 7? 0 


221? 


0375 


•III in 

7741 


7741 




2216 


Alt 

0376 


A A *9 "f 

44 77 


4477 


/20J P 


2217 


0377 


3044 


3044 




2220 


0400 


42 76 


42 76 


/21JQ 


A ft A J 

2221 


0401 


0376 


0376 




2222 


0402 


4477 


4477 


/22JR 


AA A«J 

2223 


0403 


3146 


3146 


2224 


04 04 


5*121 


5121 


/2 3 1 S 


M A M K 

2225 


m j Mir 

0405 


4651 


4651 




2226 


04 06 


40 40 


4040 


/2 4 1 T 


2227 


0407 


4077 


4 4J«<I| 

4077 




2230 


0410 


0177 


0177 


/25* U 


H T 4 

2231 


0411 


7701 


7701 




2232 


0412 


0176 


0176 


/26JV 


2233 


0413 


7402 


74 02 




Af) *|i 

2234 


0414 


Mil *4< 

06 77 


0677 


/2 7 J W 


AM 7C 

2235 


M 4 J C 

0415 


7701 


7701 




2236 


n a 4 t\ 

0416 


1463 


4 i i 1 

1463 


/30J X 


*2« 7 


a a 4 t 
0417 


6314 


/ 7 4 4 

6314 




2240 


0420 


07 70 


07 70 


/3 1 1 Y 


2241 


0421 


7007 


7007 




2242 


0422 


4543 


4543 


/321 2 


2243 


n a n t 

0423 


6151 


6151 




2244 


fk A Pi A 

0424 


A 4 •» *» 

4177 


4177 


/33I C 


M A 4 IT 

2245 


0425 


0000 


0000 




2246 








/3 4 1 BACKSLASH IGNORED ON 


2247 


0426 


1020 


1020 


«4) »A C fl 

2250 


0427 


0204 


204 




2251 


n a t n 

0430 


0000 


0000 


/35i 3 


2252 


0431 


7741 


7741 




2253 








/COOES 36 J ALT* 37SRUBQUT 


2254 


04 32 


20 00 


20 00 


/36J <UPARR0W> 


2255 


0433 


2077 


2077 




2256 


0434 


1604 


1604 


/<BACKARROW> 


2257 


0435 


0404 


0404 




2260 


0436 


0000 


0000 


/ 4 0 1 SPACE 


2261 


0437 


0000 


0000 




2262 

IB 


0440 


7500 


7500 


/4i; ♦ 



"5 9 *. 1 

cc 60 


0 ** 4 1 


(71 01 01 (71 

10 10 0 10 


01 01 01 01 
k3l3 1010 






9? 64 


04 42 
10 *f i a. 


7000 

/ 10 10 10 


70 00 




/ 4 0 ! " 


4 4 03 


(71 4 4 1 
10 H H 0 


OO 701 
1010/10 


1010/10 






9 9 A A 










/r*nrirc ai» a a t a s • i c* mat 


9?A7 
c«-0 / 


04 44 


4? 00 


49 00 




/4 1 • <T" A 0 0 T A C F RFTllDMS 


597(71 
(£/() 


01 4 4 S 
10 «♦ 1 J 


0917 
v c 0 / 


(719 "X7 
lo 4 0 / 






« /I 


01 A 4 A 
t> *» *f O 


S7 91 


S7 9 1 
9/41 




/ A A t (t 


4 4/4 


(71 4 4 7 
|0 «* «♦ / 


4 A7 1 
«* O / A 


A A 7 1 
••0/1 






9 *5 "J t 




01 A 9 "I 
0 4 40 


01 A 9 1 

04 40 




/ 4 9 • A 


9974 


PI 4 S 1 
I0 *» 3 A 


6910 
O c A *> 


A 9 1 0 

AI0 






9? 75 

4«- / •» 


04^2 


SI A6 

3 A OO 


S1 A6 




/ *t O ♦ Ot 


957* 

44/0 


0 4S 1 

10 "» 3 w 


0 S9 A 
K> 34 0 


0S9 6 






9277 
cc 1 1 










/rnnr 47itar wnT nt^oi AYrn 


91 01(71 


10 ™ ✓ ~ 


04 04 

!0 *» 10 «? 


04 04 

io *♦ io t 




/47» /TAR^ 


91011 
4O01 


01 A S 5 
10 ** 9 3 


17 04 

O / I0S 


17 04 
0 / KJ *» 






2109 


04 56 


36 00 

VD 10 Id 


36 00 




/S 0 ! ( 
f J 10 » \ 


TS d 

4 o 


04 S7 
10 *T 9 / 


00 41 
10 10 1 A 


00 41 

10 10 «t X 






9104 
tow*' 


(714 Ad 


41 00 


41 00 




/ S 1 ! 1 
f 3 A * / 


9l OlS 


014 A1 
k9 *♦ OA 


00 76 

I0KJ OO 


OlO "lA 






9101 A 
COUP 


0 4 6 9 


90S0 

C 10 J <LI 


90 SO 

C IO J tJ 




/S9 » » 

/ 3 C i w 


9 loi 7 
4010 / 


01 A A 1 
0 *t 0 0 


Ol oi s Ol 
10 0 9 10 


01 01 S 01 
00 90 






911 O 

4O1I0 


01 4 A 4 
10 *» 0 *t 


0 4 0 4 
10 •+ 10 H 


0 4 0 4 
10 *f 10 H 




/Si!* 
/ 3 0 * ♦ 


9 1 1 1 

toll 


(31 A A S 
0409 


0 4 T 7 

10 ^ 0 / 


04 0/ 






twit 


0466 


0500 

IO > 10 10 


10 -/ 10 IO 




/54 1 . 


Zojo 


D( A L. 7 

04 6/ 


01 01 fll A 

1010 00 


00 00 






4014 


(71 A 7 01 


(A a a a 
10404 


a a m a 
04 04 




/EE i- 

/ 9 9 i » 


91 -1 S 


014 71 
0^ f A 


014 fil A 
10 «♦ 0«» 


014 014 
0** 0*» 






911 A 
4«1 O 


0 4 7 9 
10 *♦ / 4 


0 0 O 1 
10 v \D A 


0 0 01 

IO 10 IO A 




/ S A ! 
/ 30 ♦ i 


91 1 7 
40 1 / 


04 71 
10 *» / 0 


0 0 Ol Ol 
10 10 jo |0 


OO 001 
1010 1010 






919(71 


04 74 


OA 01 


OA 01 

10 0 10 A 




/E7»V 
r 3 / i \ 


40 ZX 


OlA -75? 

04 79 


AOI 101 
40 00 


401 101 

40 00 






9199 
4 O <<£ 


04 76 


4S16 

-» >J o 


KI1IMP AT . 4S1A 


/ A 0 ! 0 
/ O V » 10 




919 X 

40<o 


04 77 


16S1 
0 O 9 A 


16 S1 
O O 3 X 






9194 


OR 00 
10 9 10 10 


9 1 0! 1 
41I01 


9101 
4 1 101 




/A 1 1 1 
/ 0 A 1 A 


91 9S 
40 43 


OS 01 
I03 I0A 


01 77 

■OA / / 


01 77 

I0A / / 






91 9A 


ois 09 

03 I0C 


4S91 


4S91 
*t3 40 




/ A 9 f 9 
/ 9 4 • 4 


9 1 9 7 
40 4 / 


OS 01 

109 I0u 


91 S1 
4191 


91 S1 

4171 






93 IP! 


OS04 

%J J v ^ 


41 99 
~ * c c 


41 77 
~ *• cc 




/61f 1 


9l "< 1 
4° OA 


OS OS 

tj j v -s 


96 S1 


96 *1 
40 3A 






9119 

4004 


OSOA 


9 414 
4«H«t 


9414 
4^ 1*> 




/ A 4 1 4 
/ 0 4 J *t 


9111 


OS 07 

103 10 ( 


04 77 

W / / 


04 77 

10* / / 






91 14 


OlS 1 0 
I09 A* 


S1 79 

3A I C 


K1 79 
9 A / 4 




/Ac i e 
/ 0 9 I 9 


91 XS 
4« 09 


OS 1 1 
09 A* 


06 S1 
100 9A 


OA S1 
I0O 9 A 






91 ">!6 
t 0 0 o 


OS 1 9 
I0 9 A 4 


1 SOA 
A9 0O 


1 SOA 




/A A 1 A 
/ O 0 i O 


5-177 


OS 1 1 
109 AO 


49 9S 
^«4~ 


A 9 9S 






9 "X 4(71 
4 0 HI0 


OS 1 4 
03 A"» 


44 41 
1 1 0 


4441 




/ A 7 f 7 
/ 0 / J / 


9141 
40 ** 1 


OS 1 S 

109 A3 


AO SO 
O0 90 


AO SOI 
00 910 






9 1 A 9 
40 44 


OlS 1 A 
I09 10 


S1 9A 
9140 


S1 9A 


/7 01 « ft 
/ / W • 0 




9 T A 1 
40 40 


OS 1 7 
109 1 1 


9 A K1 
40 !>A 


OA R1 
4091 






914 4 
4 0 *» *♦ 


OS 90 
109 410 


S 1 9 9 
9144 


S1 99 
3144 




/ 7 1 t O 


IE 

2 0 49 


OlS 91 
09 4 A 


T A K1 
00 ?1 


*t A R1 
0091 






9 14 A 
4 0 *» 0 


OS99 
iO 9 c c 


9 9 OO 
4 4 1010 


9900 
441010 




/ 7 9 t f 
/ / 4 I * 


2347 


0523 


00 00 


0000 






2350 


0524 


4601 


4601 




/73! I 


2351 


0525 


0000 


0000 






2352 










/CODE 74KN0T DISPLAYED 


2353 


0526 


1204 


1204 






2354 


0527 


0021 


21 






2355 


0530 


1212 


1212 




/755« 



2356 


0531 


1212 




1212 




2357 










/CODE 76" l> NOT DISPLAYED 


2360 


05 32 


2100 




2100 




2361 


0533 


0412 




412 




2362 


0534 


4020 




4020 


/77» ? 


2363 


n a ~t K 

0535 


2055 




2055 




2364 


0536 


1760 


QAF» 


DSC I 




?365 


0537 


6000 




6000 




2366 


0540 


6151 




JMP QA I 




2367 


0541 


0002 


QAU, 


2 


/CONSTANT 


t~k -w ™f f% 

2370 


0542 


0016 


QA W» 


NOP 




23 71 


0543 


2541 




ADO QAU 




23 72 


0544 


62 52 


QA Xi 


JMP QA0*1 




A Tf <f -i 

2373 


0545 


6303 




JMP QAQ 




23 74 


0546 


6303 




JMP QAQ 




2375 


0 54 7 


6073 




JMP QARFSH 




2376 


0550 


03 36 




QA V 




23 77 


05 51 


45 43 


QA Y# 


45 43 


/LF, CR 


24 00 


05 52 


74 76 




74 76 


/<,> 


2401 


0553 


36 34 




36 34 


/ALT » BACKSLASH 


2402 


0554 


37 47 




3747 


/RUBOUT, TAB 


2403 










/END Q*A 


2404 






/ 






nA /IE 

2* 05 






/KEYBOARD INPUT ROUTINE 


Ail M A 

24 06 






/ 






2407 






QAKRB«6036 /PDP 


-8 I OT KBD 


2410 






/ 






2411 


0555 


1000 


GETKBD* 


IDA 




2412 


05 56 


0000 




0 




24 13 


05 57 


47 03 




STC QAEX1T+6 


/SAVE RETURN 


*SA 4 il 

24 14 


0560 


2001 




ADD 1 


/SAVE XRS 1 AND 2 


^ A 4 B 

2415 


0561 


4700 




STC QAEXIT*3 




2416 


net c *j 

05 62 


2002 




ADO 2 




2417 


0563 


4702 




STC QAEXJT+5 




2420 


0564 


4676 




STC QAEXIT+1 




2421 


0565 


04 15 




KST /WAS 


SOMETHING TYPED? 


2422 


fid 4 4l 

05 66 


60 00 




JMP 0 


/NO* EXIT 


24 23 


nc 41 T 

05 6/ 


05 00 




I0B 




2424 


0570 


60 36 




QAKRB /GET 


TTY CHAR, CLEAR FLAG 


2425 


QIC *?4 

0571 


1460 




SAE I 


2426 


0572 


0204 




204 


/ctrl/d? 


2427 


0573 


0456 




SKP 


2430 


0574 


6737 




JMP DIAL 


/YES 


2431 


r» c 1 fir 

0575 


1060 




STA I 


/SAVE IT 


24 32 


0576 


0000 


QATY, 


0 




2433 


0577 


1120 




AO A I 




2434 


0600 


7540 




-237 




2435 


0601 


0451 




APO 


/BETWEEN 200 AND 237? 


2436 


0602 


6644 




JMP QACNTR 


/CONTROL CHAR, CHECK FOR 


oil irr 

24 37 


06 03 


0061 




SET I 1 


/NO 


24 40 


06 04 


0/06 




QACHAR-1 




3441 


10 O 10 x 


PI 01 AO 
vv OC 




SET I 2 




2442 


0606 


7770 




-7 




2443 


0607 


1000 




IDA 




24 44 


0610 


0576 




QATY 




2445 


06U 


1461 




SAE I 1 




2446 


0612 


6614 




JMP ,*2 




2447 


0613 


6675 




JMP QAEXIT 


/ILLEGAL CHAR, DONT ECHO 


2450 


0614 


0222 




XSK I 2 /CHECKED THEM ALU? 



2451 


0615 


6611 


JMP ,-4 




24 52 


0616 


1120 


AO A I 




2453 


0617 


7440 


-337 




2454 


0620 


0451 


APO 


/BETWEEN 240 AND 337? 


24 55 


0621 


66 35 


JMP QALEGL 


/YES, LEGAL CHAR 


24 56 






/ 




24 57 


06 22 


14 61 


SAE I 1 


/NO, CHECK FURTHER, 


2460 


0623 


6632 


JMP ,*7 




2461 


0624 


10 20 


LOA I 


/RUBOUT 


2462 


0625 


0334 


334 




24 63 


06 26 


6704 


JMP QATPE 


/ECHO BACKSLASH 


24 64 


0627 


1020 


LOA I 




24 65 


0630 


0037 


37 




24 66 


0631 


66 77 


JMP QAEXIT+2 


/LEGAL EXIT 


2467 


0632 


1461 


SAE I 1 




2470 


0633 


6675 


JMP QAEXIT 


/ILLEGAL 


2471 








/ALT 


2472 


0634 


6677 


JMP QAEXIT*2 


/EXIT, OONT ECHO 


24 73 


0635 


1000 


QALEGL i IDA 




2474 


0636 


0576 


OATY 




2475 


0637 


6704 


JMP QATPE 


/ECHO CHAR 


2476 


0640 


2576 


ADO QATY 




2477 


0641 


1560 


BCU I 


/STRIP IT TO 6-8 IT 


2500 


0642 


7700 


7700 




2501 


0643 


6677 


JMP QAEXIT*2 




2502 






/TO HERE IF CONTROL 


CHAR 


2503 


0644 


1460 


QACNTR , SAE I 




2504 


0645 


7755 


7755 




2505 


0646 


6661 


JMP QACKl/ 




2506 


0647 


10 20 


LDA I 


/CR 


2507 


0650 


0043 


43 




2510 


0651 


4676 


STC QAEXIT*! 




2511 


0652 


1020 


LOA I 




2512 


0653 


0215 


215 




2513 


0654 


6704 


JMP QATPE 




2514 


0655 


1020 


LDA I 




2515 


0656 


0212 


212 




2516 


0657 


6704 


JMP QATPE 




2517 


0660 


66 75 


JMP QAEXIT 




2520 






/ 




25 21 


06 61 


14 60 


QACKLF, SAE I 




2522 


0662 


7752 


7752 




2523 


0663 


6667 


JMP ,*4 




25 24 


06 64 


1020 


LOA I 


/LF 


2525 


0665 


0045 


45 




2526 


0666 


6651 


JMP QACNTR+5 




2527 


0667 


1460 


SAE I 




2530 


0670 


7751 


7751 




25 31 


0671 


6675 


JMP QAEXIT 


/ILLEGAL 


2532 


0672 


1020 


LOA I 




2533 


0673 


0047 


47 




25 34 


06 74 


66 77 


JMP QAEXJT*2 


/EXIT, OONT ECHO 


2535 






/ 




2536 


0675 


1020 


QAEXIT, LDA I /GET 


6-BIT ASCII 


2537 


0676 


00 00 


0 




25 40 


06 77 


00 61 


SET I 1 


/RESTORE XRS 


2541 


0700 


0000 


0 




2542 


0701 


0062 


SET I 2 




2543 


07 02 


00 00 


0 





25 44 


Pf7 01^ 


A01 01(71 




JMP 


/E XI R 


c v t «/ 






/c \o t n 


PRINT C(AC) 


95 4A 




"BIO 


ri a Tor 
UA lrt» 


NOP/POP 


/DONT 


25 47 








/PMQDE 


2550 








/t cr 
/T or 




2551 










,-1 


25 52 








/ T |„0 




955T 


017 015 


PI CI 1 i 




CL, R 




2554 








/L 1 NC 




25 55 








/l Uftnr 

/L.M0DE 




2556 




ftPI Old 




JMP 


/EXIT 


25 57 






/ 






2560 


0707 


02 41 


n A ru ad . 
\j~ An > 


243 


/HASH 


2561 


0710 


0244 




244 


/DOtLAR SIGN 


2562 


0711 


0245 




245 


/PER CENT 


2963 


0712 


0247 




247 


/APOSTROPHE 


2564 


0713 


03 00 




300 


/AT SIGN 


25 65 


0714 


03 36 




33 6 


/UP ARROW 


2566 


0715 


0337 




337 


/BACK ARROW 


2567 


0716 


00 40 




40 


/RUB OUT 


25 70 


0717 


00 36 




36 


/ALT 


2571 






/END OF 


S\R GETKBD 


2572 








EJECT 





2573 
2574 
2575 
2576 
2577 
2600 
2601 
2602 
2603 
2604 
2605 

2606 
2607 
2610 
,2611 
2612 
2613 
2614 
2615 
2616 
2617 
2620 
2621 
2622 



0720 
0721 
07 22 
0723 
0724 
0725 
0726 



6727 
67 30 

0731 
07 32 
07 33 
07 34 
0735 



6737 
6740 
67 41 



0642 Ql 

6020 

2245 

2372 

60 73 

0602 

6057 



0000 Q2 f 
6141 

0642 
6020 
23 27 
2372 
0002 



6736 5727 



0002 
5741 
1221 



/ 

DI AL, 



IDF 2 

JMP Q A I N I T 

FR AM El 12 000 
AN SRI! 20 00 
JMP OARFSH 
LIP 2 

JMP GETANS 

PMODE 
0 

LINC 
LMOOE 
LOF 2 

JMP OA IN IT 

FR AM E2 !2 00 0 
ANSR 1 ! 2000 
POP 
PMODE 

JMP I Q2 
0002 

JMP I ,+1 
KTO 

LIST APE 12 



/TYPE IN BLOCK, UNIT" 



/P DP 

/DIAL BOOTER 



NO ERRORS 



0264 SYMBOLS 
1011 REFERENCES 



SYMBOL 


VALUE 


OEF 


REFERENCE 


LINE 


NUMBERS 


ANSR1 


4 37 2 


1604 


1 350 


1357 


2576 






BALF 


0715 


06 65 


06 55 










BASE 


00 64 


0134 


03 54 


0 42 5 


0562 






BITC 


0512 


0462 


0436 


0452 


0454 






BITS 


0514 


0464 


0443 


044 7 


0451 






BITSET 


0507 


0457 


0446 










BLOCK 


4151 


1451 


1237 


1352 


1404 






BLST 


1023 


0774 


0753 










BNUM 


0043 


0113 


06 34 










BROUTE 


1024 


0775 


07 66 










BUMPX 


0736 


0 710 


0646 


0666 


0703 


0 715 




BUMPY 


0607 


0556 


05 74 










CHAR 


0063 


0133 


0206 


020 7 


0224 


0233 


0245 


COUNT1 


0010 


0060 


0433 


0444 


0455 


v ? v o 


0520 


C0UNT2 


0011 


0061 


05 06 


0510 


0514 


0 610 


0642 


CRCOT 


02 72 


02 60 


02 15 


0333 


0415 






CURY 


00 62 


0132 


051 6 


0 52 7 








DIAL 


6737 


2617 


24 30 










OISALF 


0703 


0653 


06 62 










□ISCAR 


0750 


0723 


0637 


0657 


0745 






01 SCUR 


0522 


04 76 


0122 


053 7 








OlSPLA 


4141 


1437 


01 20 


143 0 


1444 






DISPX 


4047 


1335 


i 2i3 


130 7 


1474 






OIS10 


0600 


0547 


01 21 


0571 








OLOOP 


4132 


1430 


0076 










OOCON 


0716 


0666 


06 43 










DONUM 


0645 


0615 


0707 










EXIT 


0026 


0076 


0266 


0301 


0414 


076 3 


11 01 


FRAME1 


4245 


1560 


25 75 










FR AME2 


4327 


1571 


01 07 


0141 


0173 


0177 


13 74 


C 


1004 


0755 


0762 










GB 


4074 


13 64 


1206 










GET 


4153 


14 57 


13 51 


1360 








GE TA NS 


40 57 


13 45 


2601 










GETOIG 


4230 


1540 


1531 


1553 








GETKBD 


6555 


2411 


1337 


1766 








GETNUM 


0651 


0621 


0641 










GETOUT 


42 04 


1510 


1461 










GETPNT 


0012 


0062 


0355 


0356 


0426 


0460 


0465 


GOT 


1013 


0764 


0760 










GOTS 


0400 


0341 


0334 










HOLD 


00 25 


00 75 


0164 


0 25 0 


0254 


0263 


02 72 


IBLOCK 


1242 


1237 


1235 


1256 


1262 


1263 




ICRGOT 


0452 


0415 


0374 


0 40 3 








IOISCU 


0052 


0122 


1442 










IOISPL 


00 50 


0120 


0202 










JOJS10 


0051 


0121 


1441 










IGOTS 


0344 


0334 


0220 










JKF 


1255 


1253 


1246 










102 


00 32 


0102 


14 43 











SYMBOL 



VALUE DEF 



REFERENCE LINE NUMBERS 



JMPLST 


106 0 


1005 


01 77 K 
10 7 / 5 


017 7*. 

07 76 


01 77 7 

0/7 7 


KALT 


1132 


1119 


1051 


1 00 0 


1064 


KB 


4 4 AT 

11 4o 


4 4 70S 
11 O0 


10 36 


4 4 01 A 

1 10 o 


4 4 04 

1121 


KCB 


12 00 


4 4 "74 

11 71 


4 (A IK 

110 35 






KCB2 


1211 


1202 


4 4 7 C 

1175 








11 64 


4 4 K*» 

11 3" 


4 Wl 4 4 

10 41 






I/HP A 

KCF2 


1175 


4 4 41 41 

1166 


4 4 L. 4 

1161 






K CN 


4 *i 4 a 
X 240 


4 OIK 

1235 


4 M A ti 

1045 






KCP 


12 56 


12 55 


4 n 4 z 

10 46 






ix 0* r\ 

KCR 


4 n 4 TIE 

1213 




10 4 / 


< o 't a 
12*36 


1264 


KCW 


4 A 7il 

12 34 


12 31 


4 rt Crt 

10 50 






KOIGIT 


0* 53 


04 22 


4 ft El 

10 53 


4 OIK A 

1 05 4 


4 ft CE 

1055 


KEYDEC 


1000 


0751 


14 36 






KEYLST 


1027 


1004 


07 74 


077 6 


07 77 


K" 


li 53 


U 42 


10 42 


1 25 3 




KLF 


0200 


0162 


1043 






KRET 


12 43 


12 41 


1044 


4 *JTF 4 

1 27 1 




KRU8 


11 11 


10 72 


10 65 






KRUBZ 


1121 


1102 


4 fl 7 C 

1075 






K5PACE 


1 266 


4 O L. A, 

1266 


0 7 7 


105< 




KTC 


12 16 


4 o 4 m 

12 10 


4 ft 7 7 

10 37 


4 O 7 VI 

1234 




KTD 


1221 


1215 


10 40 


2 621 




LI NE 


ft (31 OT 
00 2v5 


00 70 


02 7 7 


ft /ift i 

0 40 0 


0423 


LINK 


ft 7 A 7 

0/47 


07 21 


nil nn 

06 20 


ft A O 4 

0621 


fti 7 (k 

06 00 


LINPOS 


00 24 


ft( rt 7 vl 


0300 


0407 


ft A ~l * 

0431 


1 f C 1 C M 

L ISLEN 


1025 


/i74i 

0/76 


ft 7 K 4 
0 7 51 






LISN 


0216 


0202 


fa O ^ 7 

0223 


ft n o 7 
022 7 


0232 


l ki AO | IT 

UNOPUT 


00 71 


ft4 ^4 

01 41 


rt4 Z. K 

01 65 






LOCO IS 


ft £ o 4. 

0626 


0576 


0565 


ft ^ ft ft 
0600 


rt 4i rt o 

0602 


MASK 


00 21 


fll rt 4 

00 71 


034 4 


ft 7 K ft 

0 o 50 


ft 7 C 7 

005 7 


MATCH 


m ft o o 
00 2ft 


fli ft 7 o 
00 7 c 


(31 ~< K 4 

0051 


171 7 A 4 

0 «56 1 




MgRRUB 


n ni i C 


a* 7 K 
01 35 


02 13 






MOVE 


4 n i t 

*233 


122i 


1216 






M10 


13030 


/a 4 mm 

0100 


ft O 7 ft 

02 30 


ft CR Tf 

0 55 o 


4 4 7 7 

1173 


M260 


0057 


0127 


0225 






M360 


0054 


0124 


4 4 C 

1157 






L4 *2 rt 

M370 


rt fin e "7 

0053 


rt 4 O 1 

0123 


A rt 4 

0401 


4 4/4 

1144 




M377 


0045 


0115 


0210 


0264 


0370 


M4 


0047 


0117 


0704 






M40 


00 35 


0105 


05 13 


0572 




M7 


00 56 


0126 


1244 






NEXT 


4157 


j i 4<t 

14 63 


15 05 






til UiM 1 V 

NUMP AT 


6476 


2322 


0113 






PARAM 


4147 


1 446 


1233 


1411 




PA TPNT 


0015 


an A c 

0065 


0636 


0656 


0733 


PCRMS 


00 44 


01 14 


02 16 






PLEN 


1026 


0777 


07 65 






rMOV E 


0 100 


0151 


1 o25 






PUTB 


0014 


0064 


0166 


0236 


0241 


PUTPNT 


0013 


0063 


1373 


1401 


1551 


P10 


0055 


0125 


li62 






P12 


0061 


0131 


0523 






P140 


0562 


0540 


0507 






P160 


07 45 


0717 


0555 






P20 


00 40 


0110 


0712 






P204 


0746 


0720 


0557 






P3 02 


05 63 


05 41 


0517 







SYMBOL 


VALUE 


DEF 


REFERENCE 


LINE 


NUMBERS 


P34 


0067 


0137 


0175 


0240 


0316 






P3443 


0036 


0106 


CI 9 A 1 


0410 








P370 


0060 


0130 


0275 


0412 


1166 






P377 


0041 


0111 


0612 










P43 


0066 


0136 


0171 










P5772 


00 74 


0145 


1315 










P5773 


00 76 


0147 


13 17 










P7 


0046 


0116 


02 46 


0267 


0405 


0 43 4 


0632 


P77 


00 34 


0104 


0653 










P7776 


0075 


0146 


0635 


1316 








P7777 


0077 


0150 


1320 










OAS 


6024 


1627 


1415 


1770 


2153 


2154 




OACA 


6035 


1640 


1660 


2006 








OACHAR 


6707 


2560 


24 40 










QACKLF 


6661 


2521 


2505 










OACNTR 


6644 


2503 


2436 


2526 








OAD 


6046 


1652 


1657 


1674 








OAE 


6070 


16 76 


16 54 


2060 








QAEXtT 


66 75 


2536 


2413 


Z*15 


2417 


2420 


2447 


OA F 


65 36 


23 64 


1 7 K7 
1/5/ 










OAG 


6102 


1711 


1 ft 1 A 


1 64o 


1751 






QAH 


6134 


1743 


1 7 CI A 


1753 


1763 


1 76 4 


9119 


OAI 


6151 


1761 


1 7tt 
i'O? 


2111 


2141 


cooo 




OA IN IT 


6020 


1623 


9 6» *JA 


9 A 1 01 

c o l w 








OA J 


6156 


1766 




1 it 'J Dl 


1746 






QAK 


63 25 


2143 


1/ / H 


o an A 


2055 






QAKR8 


60 36 


2407 


9494 










QAL 


6215 


2025 


1630 


2002 


2012 






QALEGL 


6635 


2473 












QAM 


6121 


1730 


1 7 90I 




1726 






OAN 


6243 


20 54 


17 76 


2 06 1 








QAO 


6251 


2063 


1 A"*9 




1762 


2016 


20 26 


QAP 


6262 


2075 




1 7 9 
1 / 9 C 


1754 






QAO 


6303 


2116 


1633 


2017 


2020 


2034 


2052 


QARFSH 


60 73 


1702 


1636 


1641 


1710 


2000 


20 10 


QAT 


6310 
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HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming notes, 
software problems, and documentation corrections are published by Software 
Information Service in the following newsletters. 

Digital Software News for the PDP-8 & PDP-12 

Digital Software News for the PDP-11 

Digital Software News for the PDP-9/15 Family 

These newsletters contain information applicable to software available from 
Digital's Program Library, Articles in Digital Software News update the 
cumulative Software Performance Summary which is contained in each basic 
kit of system software for new computers. To assure that the monthly Digital 
Software News is sent to the appropriate software contact at your installation, 
please check with the Software Specialist or Sales Engineer at your nearest 
Digital office. 

Questions or problems concerning Digital's Software should be reported to 
the Software Specialist. In cases where no Software Specialist is available, 
please send a Software Performance Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms which are provided in the software kit should be fully filled out 
and accompanied by teletype output as well as listings or tapes of the user 
program to facilitate a complete investigation. An answer will be sent to the 
individual and appropriate topics of general interest will be printed in the 
newsletter. 

Orders for new and revised software and manuals, additional Software Per- 
formance Report forms, and software price lists should be directed to the 
nearest Digital Field office or representative. U.S.A. customers may order 
directly from the Prc^mm Library in Maynard. When ordering, include the 
code number and a brief description of the software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user library 
and publishes a catalog of programs as well as the DECUSCOPE magazine 
for its members and non-members who request it. For further information 
please write to: 

DECUS 

Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 



TED 

DEC-12-E0SA-D 



READER'S COMMENTS 



Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness 
of its publications. To do this effectively we need user feedback — your critical evaluation of 
this manual . 

Please comment on this manual's completeness, accuracy, organization, usability and read- 
ability. 



Did you find errors in this manual? If so, specify by page. 



How can this manual be improved? 



Other comments? 



Please state your position. Date: 

Name: Organization: 

Street: Department: 



City: State: Zip or Country 
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